Как скопировать данные в следующую пустую строку другого листа в Excel?
Предположим, вы хотите скопировать определенные данные в диапазоне A1: E1 из Sheet1 и быстро вставить их в следующую пустую строку Sheet2 в книге, как показано на скриншоте ниже, что вы можете легко сделать? Эта статья познакомит вас с методом VBA.
Скопируйте данные в следующую пустую строку другого листа с кодом VBA
Скопируйте данные в следующую пустую строку другого листа с кодом VBA
Вы можете запустить приведенный ниже код VBA, чтобы скопировать данные на определенный лист и автоматически вставить в следующую пустую строку другого листа.
1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код 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, а затем щелкните OK кнопка. Смотрите скриншот:
Затем скопированные данные Sheet1 сразу же вставляются в следующую пустую строку конкретного Sheet2, как показано ниже:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!