Cum să copiați datele pe următorul rând gol al unei alte foi de lucru în Excel?
Presupunând că doriți să copiați anumite date din intervalul A1: E1 din Sheet1 și lipiți-le rapid pe următorul rând gol al Sheet2 într-un registru de lucru, așa cum se arată mai jos, ce puteți face cu ușurință? Acest articol va introduce o metodă VBA pentru dvs.
Copiați datele pe următorul rând gol al altei foi de lucru cu cod VBA
Copiați datele pe următorul rând gol al altei foi de lucru cu cod VBA
Puteți rula codul VBA de mai jos pentru a copia datele într-o anumită foaie și a le lipi automat pe următorul rând gol al altei foi de lucru.
1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA de mai jos în fereastra Module.
Cod VBA: copiați datele pe următorul rând gol al altei foi de lucru
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
notițe: În cod, Sheet2 este foaia de lucru de destinație a datelor copiate. Îl puteți schimba în funcție de nevoile dvs.
3. apasă pe F5 tasta pentru a rula codul, în fereastra pop-up Kutools pentru Excel casetă de dialog, selectați intervalul pe care doriți să-l copiați pe următorul rând gol de Sheet2, apoi faceți clic pe OK buton. Vedeți captura de ecran:
Apoi, datele copiate ale Sheet1 sunt lipite pe următorul rând gol al respectivei Sheet2 imediat după cum se arată în imaginea de mai jos:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!