我可以获取一系列单元格，删除重复项和空白单元格，然后复制到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