Question

我对VBA很新，请原谅我，如果我做错了。基本上，为了概述我正在做的事情，我有一个由用户填写的模板。模板上有值，我需要添加到表中，但我不想添加空格或重复项。我开始在一个连续的范围内冷凝它们，我能够找出如何删除重复，但我无法删除剩下的一个空白。另外，我不确定将它们添加到另一个工作表上的表的最佳方法。这就是我到目前为止......

Sub UpdateKey()

 Range("P10:P36").Select

 Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues

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

End Sub

就像我说的那样，这总是让我在中间空白，我不知道如何摆脱，我不知道从哪里去添加什么＆＃39;离开我的桌子。谢谢你的帮助！

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

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

1 个答案: