Kopējiet diapazonu ar vienu apgabalu datu bāzes lapā, 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 CopyOneArea () Dim sourceRange Kā diapazons Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Diapazons ("A1: c10") Set destrange = Izklājlapas ("Sheet2"). Diapazons ("A" un Lr) sourceRange.Copy destrange End Sub Sub CopyOneAreaValues ​​() Dim sourceRange As Range Dim distrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Iestatīt sourceRange = Sheets ("Sheet1"). Diapazons ("A1: c10") Ar sourceRange Set destrange = Sheets ("Sheet2"). Diapazons ("A" un Lr). _ Mainīt izmērus (.Rows.Count, .Columns.Count) Beigt ar destrange.Value = sourceRange.Value Beigu apakšfunkcija LastRow (sh kā darblapa) Par kļūdu Atsākt nākamo LastRow = sh.Cells.Find (What: = "*", _ Pēc: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Rindas kļūda GoTo 0 End Funkcija 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). Sleja On Error GoTo 0 End Function