Nukopijuokite diapazoną su viena sritimi į duomenų bazės lapą naudodami „Microsoft Excel“ VBA

Anonim
  • Pavyzdiniai kodai bus nukopijuoti į duomenų bazės lapą pavadinimu „Sheet2“.
  • Kiekvieną kartą, kai paleidžiate vieną iš antrinių dalių, ląstelės bus dedamos žemiau paskutinės eilutės su duomenimis arba po paskutinio stulpelio su duomenimis 2 lape.
  • Kiekviename pavyzdyje yra makrokomanda, kuri daro įprastą kopiją, o kita - tik kopijuoti reikšmes.
  • Pamokų pavyzdžiai naudoja toliau nurodytas funkcijas (makrokomandos neveiks be funkcijų).
Sub CopyOneArea () Dim sourceRange Kaip diapazonas Dim destrange As Range Dim Lr As Long Lr = LastRow (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Diapazonas ("A1: c10") Nustatykite destrange = Skaičiuoklės („Sheet2“). Diapazonas („A“ ir Lr) sourceRange.Copy destrange End End Sub Sub CopyOneAreaValues ​​() Šaltinis Nustatyti sourceRange = Sheets ("Sheet1"). Diapazonas ("A1: c10") Su sourceRange Set destrange = Sheets ("Sheet2"). Diapazonas ("A" ir Lr). _ Keisti dydį. _ Po: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Row On Error GoTo 0 End Funkcija Funkcija Lastcol (sh kaip darbalapis) Apie klaidą Tęsti Kitas Lastcol = sh.Cells.Find (What: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Stulpelis dėl klaidos GoTo 0 End Function