Як скопіювати дані до наступного порожнього рядка іншого аркуша в Excel?
Припустимо, ви хочете скопіювати певні дані в діапазоні A1: E1 з Sheet1 та швидко вставити їх у наступний порожній рядок Sheet2 у книзі, як показано на знімку екрана, що ви можете легко досягти? У цій статті для вас буде представлений метод VBA.
Скопіюйте дані до наступного порожнього рядка іншого аркуша з кодом VBA
Скопіюйте дані до наступного порожнього рядка іншого аркуша з кодом VBA
Ви можете запустити наведений нижче код VBA, щоб автоматично скопіювати дані на певний аркуш і вставити в наступний порожній рядок іншого аркуша.
1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код 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 для Excel діалоговому вікні, виберіть діапазон, який потрібно скопіювати, до наступного порожнього рядка Аркуша2, а потім клацніть на OK кнопку. Дивіться знімок екрана:
Потім скопійовані дані Sheet1 вставляються до наступного порожнього рядка конкретного Sheet2 відразу, як показано нижче:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
