Kazalo
- 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).
Ne pozabite, da je v Excelu samo 256 stolpcev
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 = Listi ("List2"). Stolpci (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"). Stolpci ("A: A") Nastavi destrange = Sheets ("List2"). Stolpci (Lc). _ Spremeni velikost (, virRange.Columns.Count) .Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Napaka pri vklopu Pojdi na 0 Konec funkcije Funkcija Lastcol (sh Kot 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
