I Microsoft Excel kan vi kopiere celler fra aktivcellraden til et bestemt ark. I denne artikkelen vil vi bruke VBA -kode til å overføre data fra hvert ark og slå sammen dataene i ett regneark. Vi vil legge til et hovedark i arbeidsboken og lagre dataene fra det angitte området i ett ark.
Eksempelkodene kopieres til et databaseark med navnet Sheet2. Hver gang vi kjører makro, blir cellene plassert under den siste raden med data etter den siste kolonnen i ark2. Denne makroen kopierer cellene fra kolonne A, D fra ActiveCell.
Følgende er bildet av eksempeldataene:
For å kopiere celler fra aktivcelle -rad til Sheet2; vi må følge trinnene nedenfor for å starte VB -editor:
- Klikk på kategorien Utvikler
- Velg Visual Basic fra kodegruppen
- Klikk på Sett inn og deretter modul
- Dette vil opprette en ny modul
- Skriv inn følgende kode i standardmodulen
Sub CopyCells () Dim sourceRange As Range Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Cells (_ ActiveCell.Row, 1) .Range ("A1: D1") Sett destrange = Sheets ("Sheet2"). Range ("A" & Lr) sourceRange.Copy destrange End Sub
Sub CopyCellsValues () Dim sourceRange As Range Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Cells (_ ActiveCell.Row, 1) .Range ("A1: D1") Med sourceRange Set destrange = Sheets ("Sheet2"). Range ("A" _ & Lr) .Resize (.Rows.Count, .Columns.Count) End With destrange.Value = sourceRange.Value Slutt Sub
Funksjon LastRow (sh Som regneark) Ved feil Gjenoppta Neste LastRow = sh.Cells.Find (What: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas , _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Row On Error GoTo 0 Sluttfunksjon
Funksjon Lastcol (sh Som regneark) Ved feil Gjenoppta Neste Lastcol = sh.Cells.Find (What: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas , _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Column On Error GoTo 0 Sluttfunksjon
- For å sjekke ovennevnte VBA -kode; legg til data i området "A1: D1" og kjør deretter makroen ved å trykke F5 hurtigtast
- Dataene som er lagret i det angitte området, blir kopiert til "Ark2" fra A1
- Hvis vi kjører denne makroen igjen; dataene blir lagret i neste rad; se bildet under:
- Vi kan endre området i makroen ovenfor som passer vårt krav
Konklusjon: Med makroen ovenfor kan vi kopiere celler fra aktivcelle -raden til et nytt ark ved hjelp av VBA -kode.
Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post