Kopioi alue, jossa on yksi alue, tietokanta -taulukkoon Microsoft Excelin VBA: n avulla

Anonim
  • Esimerkkikoodit kopioidaan tietokanta -arkille, jonka nimi on Sheet2.
  • Aina kun suoritat jonkin aliosista, solut sijoitetaan viimeisen rivin alle, jossa on tietoja, tai viimeisen sarakkeen jälkeen, jossa on tietoja taulukossa2.
  • Jokaisessa esimerkissä on makro, joka tekee normaalin kopion, ja yksi, joka on vain Kopioi arvot.
  • Esimerkkialit käyttävät alla olevia toimintoja (makrot eivät toimi ilman toimintoja).
Sub CopyOneArea () Dim sourceRange As Range Dim destrange As Range Dim Lr Long Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Range ("A1: c10") Set destrange = Sheets ("Sheet2"). Alue ("A" ja Lr) sourceRange.Copy destrange End End Sub Sub CopyOneAreaValues ​​() Dim sourceRange As Range Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Aseta sourceRange = Sheets ("Sheet1"). Alue ("A1: c10") SourceRange Aseta destrange = Sheets ("Sheet2"). Range ("A" & Lr). _ Muuta kokoa (.Rows.Count, .Columns.Count) Päättyy destrange.Value = sourceRange.Value End -alitoiminto LastRow (sh laskentataulukkona) On Error Jatka Seuraava LastRow = sh.Cells.Find (What: = "*", _ Jälkeen: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Row On Error GoTo 0 End Toiminto Toiminto Lastcol (sh laskentataulukkona) On Error Jatka Seuraava Lastcol = sh.Cells.Find (What: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Column On Error GoTo 0 End Function