Как да копирате данни в следващия празен ред на друг работен лист в 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 за Excel диалогов прозорец, моля, изберете диапазона, който искате да копирате в следващия празен ред на Sheet2, и след това щракнете върху OK бутон. Вижте екранна снимка:
След това копираните данни на Sheet1 се поставят в следващия празен ред на конкретния Sheet2 веднага, както е показано на екранната снимка по-долу:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!