Kopirajte obseg na mestu aktivne celice na list baze podatkov z uporabo VBA v programu Microsoft Excel

Anonim
  • 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).
Sub CopyToActiveCell () Dim sourceRange As Range Dim destrange As Range If Selection.Cells.Count> 1 Potem zapustite Sub Set sourceRange = Sheets ("Sheet1"). Range ("A1: C10") Set destrange = ActiveCell sourceRange.Copy destrange End Sub Sub CopyToActiveCellValues ​​() Dim sourceRange As Range Dim destrange As Range If Selection.Cells.Count> 1 Potem zapustite podnabor sourceRange = Sheets ("Sheet1"). Range ("A1: C10") with sourceRange Set destrange = ActiveCell.Resize _ (.Rows.Count, .Columns.Count) Konec z destrange.Value = sourceRange.Value End Podfunkcija LastRow (sh kot delovni list) Napaka Nadaljuj Naprej LastRow = sh.Cells.Find (Kaj: = "*", _ Po: = sh.Range ("A1"), _ Iskanje: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Napaka pri vrnitvi Pojdi na 0 Končaj funkcijo Funkcija Lastcol (sh kot delovni list) o nadaljevanju napake naslednji Lastcol = sh.Cells.Find (Kaj: = "*", _ After: = sh.Range ("A1"), _ Iskanje: = xlPart, _ LookIn: = xlFormulas , _ Naročilo za iskanje: = xlByColumns, _ IskanjeDirection: = xlPrevious, _ MatchCase: = False). Napaka stolpca Napaka Pojdi na 0 Končaj