vba - 我可以获取一系列单元格，删除重复项和空白单元格，然后复制到 VBA Excel 中现有的表格中吗？

Question

我对 VBA 很陌生，所以如果我做得完全错误，请原谅我。基本上，为了概述我正在做的事情，我有一个由用户填写的模板。模板上分布着一些值，我需要将其添加到表中，但我不想添加空白或重复项。我首先将它们压缩在一个连续的范围内，并且能够弄清楚如何删除重复项，但我无法删除留下的空白。另外，我不确定将它们添加到另一个工作表上的表中的最佳方法。这就是我到目前为止所拥有的......

Sub UpdateKey()

 Range("P10:P36").Select

 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues

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

End Sub

就像我说的，这总是在中间留下一个空白，我不知道如何摆脱它，而且我不知道从这里到哪里去添加剩下的东西到我的 table 上。感谢您的帮助!

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