我可以使用一系列單元格，刪除重複項和空白單元格，然後將其複製到VBA Excel中已有的表格中？

我對VBA非常陌生，所以請原諒我，如果我完全錯了。基本上，爲了給出我在做什麼的概述，我有一個由用戶填寫的模板。有些值需要添加到表格中，但我不想添加空白或重複項。我開始通過凝聚他們在一個連續的範圍內，我能弄清楚如何刪除重複，但我不能刪除剩下的一個空白。另外，我不確定將它們添加到另一個工作表上的表格的最佳方式。這是我迄今爲止...我可以使用一系列單元格，刪除重複項和空白單元格，然後將其複製到VBA Excel中已有的表格中？

Sub UpdateKey() 

Range("P10:P36").Select 

Selection.Copy 
Selection.PasteSpecial Paste:=xlPasteValues 

Selection.RemoveDuplicates Columns:=1, Header:=xlNo 

End Sub

就像我說的，這總是讓我在中間有空白的權利，我不知道如何擺脫的，我不知道在哪裏從這裏開始添加剩下的東西給我的桌子。謝謝你的幫助！

來源

2014-01-15 novak

您可以後'RemoveDuplicate'訂購它。記錄一個宏，然後訂購A-> Z來查看代碼。 – Makah

嘗試使用下面的代碼：

Sub UpdateKey() 
    With Range("P10:P36") 
     .Value = .Value 
     .RemoveDuplicates Columns:=1, Header:=xlNo 
     On Error Resume Next 
     .SpecialCells(xlCellTypeBlanks).Delete xlShiftUp 
     On Error GoTo 0 
    End With 
End Sub

來源

2014-01-15 19:25:30

+ 1使用'.Value = .Value'和'SpecialCells' :) –

我可以使用一系列單元格，刪除重複項和空白單元格，然後將其複製到VBA Excel中已有的表格中？

回答

相關問題