Kopējiet kolonnu vai kolonnas 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).

Atcerieties, ka programmā Excel ir tikai 256 kolonnas

Sub CopyColumn () Dim sourceRange As Diapazons Dim destrange As Range Dim Lc As Integer Lc = Lastcol (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Kolonnas ("A: A") Set destrange = Izklājlapas ("Lapa2"). Kolonnas (Lc) sourceRange.Copy destrange End Sub Sub CopyColumnValues ​​() Dim sourceRange As Range Dim distrange As Range Dim Lc As Integer Lc = Lastcol (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Kolonnas ("A: A") Set destrange = Sheets ("Sheet2"). Column (Lc). _ Mainīt izmērus (, sourceRange.Columns.Count) destrange.Value = sourceRange.Value Beigu apakšfunkcija LastRow (sh kā darblapa) Kļūdas gadījumā Atsākt nākamo LastRow = sh.Cells.Find (Kas: = "*", _ Pēc: = sh .Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Row On Error GoTo 0 Beigu funkcijas 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 On Error GoTo 0 End Function