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

我对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