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