Kopirajte raspon na mjestu aktivne ćelije u 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).
PotkopirajToActiveCell () Zatamni izvorni raspon kao raspon Zatamni raspon kao raspon ako je odabir.ćelije.broj> 1 Zatim izađi iz podskupine izvorni raspon = listovi ("list1"). Raspon ("A1: C10") postavi odredište = aktivna ćelija izvorni raspon.kopiraj kraj raspona Potpuna podkopijaToActiveCellValues ​​() Zatamnjivanje izvornog raspona kao raspona Zatamnjivanje raspona kao raspon Ako je odabir.Cells.Count> 1 Zatim izađite iz podskupine izvorni raspon = listovi ("list1"). Raspon ("A1: C10") s izvornim rasponom postavite raspon = aktivna ćelija.premjesti _ (.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 Završi funkciju Funkcija Lastcol (sh As Radni list) O grešci Nastavi Sljedeći Lastcol = sh.Cells.Find (What: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas , _ Nalog za pretraživanje: = xlByColumns, _ Smjer pretraživanja: = xlPrethodno, _ MatchCase: = False). Greška u stupcu Uključeno Idi na 0 Kraj funkcije