Nukopijuokite stulpelį ar stulpelius į 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ų).

Atminkite, kad „Excel“ yra tik 256 stulpeliai

Sub CopyColumn () Dim sourceRange As Range Dim dimrange As Range Dim Lc As Integer Lc = Lastcol (Sheets ("Sheet2")) + 1 Set sourceRange = Sheets ("Sheet1"). Stulpeliai ("A: A") Nustatykite destrange = Skaičiuoklės ("Sheet2"). Stulpeliai (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"). Stulpeliai ("A: A") Nustatykite destrange = Sheets ("Sheet2"). Stulpeliai (Lc). _ Keisti dydį (, sourceRange.Columns.Count) destrange.Value = sourceRange.Value Pabaiga Sub Funkcija LastRow (sh kaip darbalapis) On Error Resume Next LastRow = sh.Cells.Find (What: = "*", _ After: = sh .Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByRows, _ SearchDirection: = xlPrevious, _ MatchCase: = False) .Row On Error GoTo 0 Pabaigos funkcijos funkcija Lastcol (sh Kaip klavišas Tęsti Tęsinys Kitas Lastcol = sh.Cells.Find (What: = "*", _ After: = sh.Range ("A1"), _ Lookat: = xlPart, _ LookIn: = xlFormulas, _ SearchOrder: = xlByColumns, _ SearchDirection: = xlPrevious, _ MatchCase: = False). Stulpelio klaida GoTo 0 End Function