Kopirajte vrstico ali vrstice na list zbirke podatkov z uporabo VBA v programu Microsoft Excel

Anonim
  • Primeri kod se bodo kopirali na list baze podatkov z imenom Sheet2.
  • Vsakič, ko zaženete eno od podskupin, bodo celice postavljene pod zadnjo vrstico s podatki ali za zadnjim stolpcem s podatki v listu 2.
  • Za vsak primer obstaja makro, ki naredi običajno kopiranje, in en, ki je samo Kopiraj vrednosti.
  • Primeri subs uporabljajo spodnje funkcije (makri ne bodo delovali brez funkcij).
Sub CopyRow () Dim sourceRange As Range Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Rows ("1: 1") Set destrange = Listi ("List2"). Vrstice (Lr) sourceRange.Copy destrange End Sub Sub CopyRowValues ​​() Dim sourceRange As Range Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("List1"). Vrstice ("1: 1") Nastavi destrange = Sheets ("List2"). Vrstice (Lr). _ Spremeni velikost (virRange.Rows.Count) Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Napaka pri vklopu GoTo 0 Končaj funkcijo Lastcol (sh Delovni list) O nadaljevanju napake Naslednji Lastcol = sh.Cells.Find (Kaj: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Napaka stolpca Pojdi na 0 Končaj funkcijo