Kako kopirati podatke v naslednjo prazno vrstico drugega delovnega lista v Excelu?
Recimo, da želite kopirati nekatere podatke v obsegu A1: E1 Sheet1 in jih hitro prilepiti v naslednjo prazno vrstico Sheet2 v delovnem zvezku, kot je prikazano na spodnji sliki zaslona, kaj lahko preprosto dosežete? Ta članek bo za vas predstavil metodo VBA.
Kopirajte podatke v naslednjo prazno vrstico drugega delovnega lista s kodo VBA
Kopirajte podatke v naslednjo prazno vrstico drugega delovnega lista s kodo VBA
Spodnjo kodo VBA lahko zaženete, da podatke kopirate na določen list in samodejno prilepite v naslednjo prazno vrstico drugega delovnega lista.
1. Pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo VBA v okno modula.
Koda VBA: kopirajte podatke v naslednjo prazno vrstico drugega delovnega lista
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 SubOpombe: V kodi je Sheet2 ciljni delovni list kopiranih podatkov. Lahko ga spremenite glede na vaše potrebe.
3. Pritisnite F5 tipko za zagon kode v pojavnem oknu Kutools za Excel v pogovornem oknu izberite obseg, ki ga želite kopirati v naslednjo prazno vrstico Sheet2, in nato kliknite OK . Oglejte si posnetek zaslona:
Nato se kopirani podatki Sheet1 takoj prilepijo v naslednjo prazno vrstico določenega Sheet2, kot je prikazano spodaj:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
