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

假設您要復制Sheet1的A1：E1範圍內的某些數據，然後將其快速粘貼到工作簿中Sheet2的下一個空行中，如下圖所示，您可以輕鬆地實現它嗎？ 本文將為您介紹一種VBA方法。

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

---

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

您可以運行下面的VBA代碼，將數據複製到某個工作表中，然後自動粘貼到另一個工作表的下一個空行中。

1。 按 其他 + 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 運行代碼的關鍵，在彈出窗口中 Excel的Kutools 對話框，請選擇要復製到Sheet2的下一個空行的範圍，然後單擊 OK 按鈕。 看截圖：

然後，Sheet1的複制數據立即粘貼到特定Sheet2的下一個空行，如下面的屏幕截圖所示：