Sadržaj
- 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).
Upamtite da u Excelu postoji samo 256 stupaca
Sub CopyColumn () Dim sourceRange As Range Dim destrange As Range Dim Lc As Integer Lc = Lastcol (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Columns ("A: A") Set destrange = Listovi ("List2"). Stupci (Lc) sourceRange.Copy destrange End Sub Sub CopyColumnValues () Dim sourceRange As Range Dim destrange As Range Dim Lc As Integer Lc = Lastcol (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("List1"). Stupci ("A: A") Postavi odredišni raspon = Listovi ("List2"). Stupci (Lc). _ Promijeni veličinu (, sourceRange.Columns.Count). .Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Greška pri uključivanju Idi na 0 Završi funkciju Funkcija Lastcol (sh Kao radni list) On Error Resume Next Lastcol = sh.Cells.Find (What: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Column On Error Idi na 0 Završi funkciju
