I Microsoft Excel kan vi kopiere celler fra aktivcelle -rækken til et specifikt ark. I denne artikel vil vi bruge VBA -kode til at overføre data fra hvert ark og flette dataene til et regneark. Vi tilføjer et masterark i projektmappen og gemmer dataene fra det angivne område i et ark.
Eksempelkoderne kopieres til et datablad med navnet Sheet2. Hver gang vi kører makro, placeres cellerne under den sidste række med data efter den sidste kolonne i ark2. Denne makro kopierer cellerne fra kolonne A, D fra ActiveCell.
Følgende er billedet af eksempeldataene:
For at kopiere celler fra aktivcelle række til Sheet2; vi skal følge nedenstående trin for at starte VB -editor:
- Klik på fanen Udvikler
- Vælg Visual Basic fra kodegruppen
- Klik på Indsæt derefter modul
- Dette vil oprette et nyt modul
- Indtast følgende kode i standardmodulet
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") Indstil 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). ("A1: D1") Med sourceRange Set destrange = Sheets ("Sheet2"). Range ("A" _ & Lr) .Resize (.Rows.Count, .Columns.Count) End With destrange.Value = sourceRange.Value Afslut Sub
Funktion LastRow (sh Som regneark) Ved fejl Genoptag Næste LastRow = sh.Cells.Find (Hvad: = "*", _ Efter: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas , _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Row On Error GoTo 0 Slutfunktion
Funktion Lastcol (sh Som regneark) Ved fejl Genoptag Næste Lastcol = sh.Cells.Find (Hvad: = "*", _ Efter: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas , _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Column On Error GoTo 0 Slutfunktion
- For at kontrollere ovenstående VBA -kode; tilføj data i området "A1: D1", og kør derefter makroen ved at trykke på F5 -genvejstasten
- De data, der er gemt i det angivne område, bliver kopieret til "Sheet2" fra A1
- Hvis vi kører denne makro igen; dataene gemmes i den næste række; se billedet herunder:
- Vi kan ændre rækkevidden i ovenstående makro, der passer til vores krav
Konklusion: Med ovenstående makro kan vi kopiere celler fra aktivcelle -rækken til et nyt ark ved hjælp af VBA -kode.
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet