Kopirajte obseg z enim območjem na list baze 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 CopyOneArea () Dim sourceRange As Range Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Range ("A1: c10") Set range Listi ("Sheet2"). Območje ("A" & Lr) sourceRange.Copy destrange End Sub Sub CopyOneAreaValues ​​() Dim sourceRange As Range Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Range ("A1: c10") With sourceRange Set destrange = Sheets ("Sheet2"). Range ("A" & Lr). _ Spremeni velikost (.Rows.Count, .Columns.Count) Končaj z destrange.Value = sourceRange.Value End Sub Function LastRow (sh kot delovni list) Napaka Nadaljuj Next LastRow = sh.Cells.Find (Kaj: = "*", _ Za: = sh.Range ("A1"), _ Iskanje: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Napaka pri vrnitvi Pojdi na 0 Konec Funkcija Funkcija Lastcol (sh kot delovni list) o nadaljevanju napake naslednji Lastcol = sh.Cells.Find (Kaj: = "*", _ After: = sh.Range ("A1"), _ Poišči: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Stolpec pri napaki Pojdi na 0 Končaj funkcijo