如何在 Excel 中將數據複製到另一個工作表的下一個空白列？

假設您想複製 Sheet1 中 A1:E1 範圍內的某些數據，並將其快速粘貼到工作簿中 Sheet2 的下一個空白列（如下方截圖所示），該如何輕鬆實現呢？本文將為您介紹一種 VBA 方法。

使用 VBA 代碼將數據複製到另一個工作表的下一個空白列

使用 VBA 代碼將數據複製到另一個工作表的下一個空白列

您可以運行以下 VBA 代碼來自動將某個工作表中的數據複製並粘貼到另一個工作表的下一個空白列。

1. 同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊 插入 > 模組。然後將以下 VBA 代碼複製並粘貼到模組視窗中。

VBA 代碼：將數據複製到另一個工作表的下一個空白列

Private Sub CommandButton1_Click()
    Dim xScreenUpdating As Boolean
    Dim xPasteSht As Worksheet
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xPasteSht = Worksheets("Sheet2")
    xScreenUpdating = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xRg.Copy
    xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    Application.ScreenUpdating = xScreenUpdating
End Sub

備註：在代碼中，Sheet2 是複製數據的目標工作表。您可以根據需要進行更改。

3. 按下 F5 鍵運行代碼，在彈出的 Kutools for Excel 對話框中，請選擇要複製到 Sheet2 下一個空白列的區域，然後點擊 確定 按鈕。請參見截圖：

接著，從 Sheet1 複製的數據會立即粘貼到 Sheet2 的下一個空白列中，如下方截圖所示。