如何在 VBA 中實現 ctrl + shift + down？

Question

如何在excel vba中按ctrl + shift + down？ 我也想知道然后將其粘貼為特殊值。 這是我目前擁有的代碼：

Sub CopyCol()

    Sheets("Sheet1").Range("B2").End(xlDown).Select.Copy

    Sheets("Sheet2").Range("B14").PasteSpecial xlPasteValues

End Sub

我試圖復制 B 列中的所有內容，但不是整個列本身。 例如，如果條目在第 100 行結束，它應該以與 ctrl+shift+down 相同的方式選擇單元格 B2 到 B100。

選擇單元格后，我想復制它們並將它們粘貼為單元​​格 B14 中 Sheet2 中的值。 我知道將.Select放在(xlDown)會幫助我做到這一點，但是我無法復制單元格。 此外，粘貼到另一張紙也不起作用。

Answer 1

您將使用的方法是：

Sheets("Sheet1").Range(Sheets("Sheet1").Range("B2"),Sheets("Sheet1").Range("B2").End(xlDown)).Copy

Range() 對象的工作方式如下Range(Start Cell, End Cell)

所以你用Sheets("Sheet1").Range("B2")錨定第一個單元格。

並使用Sheets("Sheet1").Range("B2").End(xlDown))錨定 End Cell。

現在另一種減少輸入的方法是使用 With 塊：

With Sheets("Sheet1")
    .Range(.Range("B2"),.Range("B2").End(xlDown)).Copy
End with