VBA跳过空白不起作用

Question

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