Zkopírujte sloupec nebo sloupce na list databáze pomocí VBA v aplikaci Microsoft Excel

Anonim
  • Ukázkové kódy se zkopírují do databázového listu s názvem Sheet2.
  • Pokaždé, když spustíte jednu z podřízených položek, budou buňky umístěny pod poslední řádek s daty nebo za poslední sloupec s daty v listu2.
  • Pro každý příklad existuje makro, které dělá normální kopii, a jedno, které je pouze Kopírovat hodnoty.
  • Subpřiklady používají níže uvedené funkce (makra bez těchto funkcí nebudou fungovat).

Pamatujte, že v Excelu je pouze 256 sloupců

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 = Listy ("List2"). Sloupce (Lc) sourceRange.Copy destrange Konec Sub Sub Sub CopyColumnValues ​​() Dim sourceRange As Rozsah Dim destrange As Range Dim Lc As Integer Lc = Lastcol (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets („List1“). Sloupce („A: A“) Nastavit destrange = Listy („List2“). Sloupce (Lc). _ Resize (, sourceRange.Columns.Count) destrange.Value = sourceRange.Value End Sub Function LastRow (sh As worksheet) On Error Resume Next LastRow = sh.Cells.Find (What: = "*", _ After: = sh .Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Row On Error GoTo 0 End Function Funkce Lastcol (sh Jako pracovní list) Při chybě Pokračovat Další Lastcol = sh.Cells.Find (Co: = "*", _ Po: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Sloupec při chybě GoTo 0 Koncová funkce