Kopirajte raspon s jednim područjem na list baze podataka pomoću VBA u programu Microsoft Excel

Anonim
  • Primjeri kodova kopirat će se na list baze podataka s imenom Sheet2.
  • Svaki put kada pokrenete jedan od podslojeva ćelije će biti postavljene ispod zadnjeg retka s podacima ili nakon posljednjeg stupca s podacima u listu 2.
  • Za svaki primjer postoji makro koji radi normalnu kopiju i jedan koji samo kopira vrijednosti.
  • Primjeri pretplatnika koriste dolje navedene funkcije (makronaredbe neće funkcionirati bez funkcija).
Sub CopyOneArea () Zatamni sourceRange As Range Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Range ("A1: c10") Set destrange = Listovi ("Sheet2"). Raspon ("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 Postavi sourceRange = Listovi ("List1"). Raspon ("A1: c10") S sourceRange Postavi destrange = Listovi ("List2"). Raspon ("A" & Lr). _ Promijeni veličinu (.Rows.Count, .Columns.Count) End With destrange.Value = sourceRange.Value End Sub Function LastRow (sh Kao radni list) On Error Resume Next LastRow = sh.Cells.Find (What: = "*", _ Nakon: = sh.Range ("A1"), _ Potraži: = xlPart, _ LookIn: = xlFormulas, _Nalog za pretraživanje: = xlByRows, _Direkcija pretraživanja: = xlPrethodno, _ MatchCase: = False). Greška pri uključivanju Idi na 0 Kraj Funkcija Funkcija Lastcol (sh kao radni list) o grešci Nastavi sljedeće Lastcol = sh.Cells.Find (Što: = "*", _ Poslije: = sh.Range ("A1"), _ Potraži: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Stupac Uključeno Greška Idi na 0 Kraj funkcije