Kopējiet diapazonu Activecell vietā uz datu bāzes lapu, izmantojot Microsoft Excel VBA

Anonim
  • Piemēru kodi tiks kopēti datu bāzes lapā ar nosaukumu Sheet2.
  • Katru reizi, kad palaižat kādu no apakšsadaļām, šūnas tiks novietotas zem pēdējās rindas ar datiem vai pēc pēdējās kolonnas ar datiem 2. lapā.
  • Katram piemēram ir makro, kas veic parastu kopēšanu, un viens, kas ir tikai Kopēt vērtības.
  • Apakšparaugi izmanto tālāk norādītās funkcijas (makro nedarbosies bez funkcijām).
Sub CopyToActiveCell () Dim sourceRange Kā diapazons Dim destrange kā diapazons Ja Selection.Cells.Count> 1 Tad iziet no apakškopas sourceRange = Sheets ("Sheet1"). Diapazons ("A1: C10") Set destrange = ActiveCell sourceRange.Copy destrange End Sub Sub CopyToActiveCellValues ​​() Dim sourceRange Kā diapazons Dim destrange kā diapazons Ja Selection.Cells.Count> 1 Tad iziet no apakškopas sourceRange = Sheets ("Sheet1"). Diapazons ("A1: C10") Ar sourceRange Set destrange = ActiveCell.Resize _ (.Rows.Count, .Columns.Count) Beidzas ar destrange.Value = sourceRange.Value Beigu apakšfunkcija LastRow (sh kā darblapa) Par kļūdu Atsākt nākamo LastRow = sh.Cells.Find (Kas: = "*", _ Pēc: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Funkcija Lastcol (sh kā darblapa) Par kļūdu Atsākt nākamo Lastcol = sh.Cells.Find (What: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas , _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Kolonna par kļūdu GoTo 0 End Function