如何在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的下一个空白行，如下图所示。