VBA跳过空白不起作用

我在Excel中有这个代码，它复制一个范围并粘贴它。 但是，它不会空白，它应该怎么做。

With Worksheets("Calculator") .Range("H10:H61").Copy Worksheets("Graphs").Range("D2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=True, Transpose:=False End With 

范围H10:H61只包含值，不包括自由度。

Answer 1

不幸的是，跳过空白不会做你认为的事情，你可以在这里读到Chandoo

试试下面的代码：

 Dim VisRng As Range With Worksheets("Calculator") Set VisRng = .Range("H10:H61").SpecialCells(xlCellTypeConstants) VisRng.Copy Worksheets("Graphs").Range("D2").PasteSpecial xlValues End With