我可以獲取一系列單元格，刪除重復項和空白單元格，然后復制到VBA Excel中已存在的表格中嗎？

Question

我對VBA很新，請原諒我，如果我這樣做完全錯了。 基本上，為了概述我正在做的事情，我有一個由用戶填寫的模板。 模板上有值，我需要添加到表中，但我不想添加空格或重復項。 我開始通過連續范圍冷凝它們，我能夠找出如何刪除重復項，但我無法刪除剩下的一個空白。 另外，我不確定將它們添加到另一個工作表上的表的最佳方法。 這就是我到目前為止......

Sub UpdateKey()

 Range("P10:P36").Select

 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues

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

End Sub

就像我說的，這總是讓我在中間空白，我不知道如何擺脫，我不知道從這里去哪里添加剩下的東西到我的桌子。 謝謝你的幫助！

Answer 1

嘗試使用以下代碼：

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