Kopier en kolonne eller kolonner til et databaseark ved hjelp av VBA i Microsoft Excel

Anonim
  • Eksempelkodene kopieres til et databaseark med navnet Sheet2.
  • Hver gang du kjører en av delene, blir cellene plassert under den siste raden med data eller etter den siste kolonnen med data i ark2.
  • For hvert eksempel er det en makro som gjør en vanlig kopi og en som bare er Kopier verdiene.
  • Eksempler -delene bruker funksjonene nedenfor (makroene fungerer ikke uten funksjonene).

Husk at det bare er 256 kolonner i Excel

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 = Ark ("Sheet2"). Kolonner (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 ("Ark1"). Kolonner ("A: A") Angi destrange = Ark ("Ark2"). Kolonner (Lc). _ Endre størrelse (, sourceRange.Columns.Count) destrange.Value = sourceRange.Value Slutt Sub Funksjon LastRow (sh Som regneark) På feil Gjenoppta Neste LastRow = sh.Cells.Find (Hva: = "*", _ Etter: = sh .Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Row On Error GoTo 0 Slutt Funksjon Funksjon Lastcol (sh Som regneark) Ved gjenopprettelse av feil Neste Lastcol = sh.Cells.Find (What: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Column On Error GoTo 0 Sluttfunksjon