Как скопировать данные в следующую пустую строку другого листа в Excel?

Предположим, вы хотите скопировать определенные данные из диапазона A1:E1 Листа1 и быстро вставить их в следующую пустую строку Листа2 в книге, как показано на скриншоте ниже. Что можно сделать для того, чтобы легко достичь этого? В этой статье мы представим метод с использованием 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

Примечание: В коде Лист2 является целевым листом для скопированных данных. Вы можете изменить его по своему усмотрению.

3. Нажмите клавишу F5 для запуска кода. В появившемся диалоговом окне Kutools for Excel выберите диапазон, который вы хотите скопировать в следующую пустую строку Листа2, а затем нажмите кнопку ОК. См. скриншот:

Скопированные данные с Листа1 сразу же вставляются в следующую пустую строку Листа2, как показано на скриншоте ниже.