Skopírujte riadok alebo riadky do hárka databázy pomocou jazyka VBA v programe Microsoft Excel

Anonim
  • Vzorové kódy sa skopírujú do databázového listu s názvom List2.
  • Zakaždým, keď spustíte jednu z čiastkových podstránok, bunky sa umiestnia pod posledný riadok s údajmi alebo za posledný stĺpec s údajmi v hárku2.
  • Pre každý príklad existuje makro, ktoré robí normálnu kópiu, a makro, ktoré je iba skopírovaním hodnôt.
  • Ukážkové príklady používajú nižšie uvedené funkcie (makrá bez nich nebudú fungovať).
Sub CopyRow () Dim sourceRange as Range Dim distrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2") + 1 Set sourceRange = Sheets ("Sheet1"). Rows ("1: 1") Set destrange = Tabuľky ("List2"). Riadky (Lr) sourceRange.Copy destrange Koniec Sub Sub Sub CopyRowValues ​​() Dim sourceRange As Range Dim distrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets („List1“). Riadky („1: 1“) Nastaviť destrange = Listy („List2“). Riadky (Lr). _ Zmeniť veľkosť (sourceRange.Rows.Count) destrange.Value = sourceRange.Value Koniec Podfunkcia LastRow (pracovný hárok ako ako) Pri chybe Pokračovať Ďalší LastRow = sh.Cells.Find (Čo: = "*", _ Potom: = sh. Rozsah ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Riadok pri chybe GoTo 0 Koniec Funkcia Funkcia Lastcol (sh As Pracovný list) Pri chybe Pokračovať Ďalej Lastcol = sh.Cells.Find (Čo: = "*", _ Potom: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Stĺpec pri chybe GoTo 0 Ukončiť funkciu