Hvordan kopieres data til næste tomme række i et andet regneark i Excel?
Antag, at du vil kopiere bestemte data i området A1: E1 i Ark1 og indsætte det hurtigt til den næste tomme række Ark 2 i en projektmappe som vist nedenstående skærmbillede, hvad kan du nemt opnå det? Denne artikel introducerer en VBA-metode til dig.
Kopier data til næste tomme række i et andet regneark med VBA-kode
Kopier data til næste tomme række i et andet regneark med VBA-kode
Du kan køre nedenstående VBA-kode for at kopiere data i et bestemt ark og automatisk indsætte den næste tomme række i et andet regneark.
1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i modulvinduet.
VBA-kode: kopier data til næste tomme række i et andet regneark
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 SubBemærk: I koden er Sheet2 destinationsarket for de kopierede data. Du kan ændre det ud fra dit behov.
3. Tryk på F5 nøgle til at køre koden, når den dukker op Kutools til Excel i dialogboksen, skal du vælge det område, du vil kopiere til den næste tomme række Sheet2, og klik derefter på OK knap. Se skærmbillede:
Derefter indsættes de kopierede data for Ark1 til den næste tomme række af det specifikke Ark2 med det samme som vist nedenstående skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
