VBA跳過空白不起作用

我有這樣的代碼在Excel中，該份範圍並將其粘貼。但它不會跳過空白，它應該如何做。VBA跳過空白不起作用

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

範圍H10:H61僅包含值，沒有fromulas。

來源

2017-03-08 tombata

可悲的是，跳過空白不會做你認爲是這樣，你可以在這裏閱讀它做什麼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

來源

2017-03-08 10:26:41

感謝這個完美的作品 – tombata

如何能適應代碼，以便它與細胞中的公式，這給文字結果 – tombata

@tombata改變的最後一部分'SpecialCells（xlCellTypeFormulas）' –

VBA跳過空白不起作用

回答

相關問題