Microsoft Excel'de VBA kullanarak bir Sütun veya Sütunları Veritabanı sayfasına kopyalama

Anonim
  • Örnek kodlar, Sayfa2 adlı bir veritabanı sayfasına kopyalanacaktır.
  • Altlardan birini her çalıştırdığınızda, hücreler veri içeren son satırın altına veya sayfa2'deki veri içeren son Sütunun arkasına yerleştirilecektir.
  • Her örnek için normal bir kopyalama yapan ve yalnızca Değerleri Kopyalayan bir makro vardır.
  • Örnek alt birimler aşağıdaki işlevleri kullanır (makrolar, işlevler olmadan çalışmaz).

Excel'de yalnızca 256 sütun olduğunu unutmayın

Sub CopyColumn() Dim sourceRange As Range Dim destrange As Range Dim Lc As Integer Lc = Lastcol(Sheets("Sheet2")) + 1 Set sourceRange = Sheets("Sheet1").Columns("A:A") Destrange ayarla = Sheets("Sheet2").Columns(Lc) sourceRange.Copy destrange End Sub Sub CopyColumnValues() Dim sourceRange As Range Dim destrange As Range Dim Lc As Integer Lc = Lastcol(Sheets("Sheet2")) + 1 Set sourceRange = Sheets ("Sayfa1").Columns("A:A") destrange ayarla = Sheets("Sayfa2").Columns(Lc). _ Resize(, sourceRange.Columns.Count) destrange.Value = sourceRange.Value End Sub Function LastRow(sh As Worksheet) Hata Açık Devam Sonraki LastRow = sh.Cells.Find(What:="*", _ After:=sh .Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 End Function Function Lastcol(sh Çalışma Sayfası Olarak) Hatada Devam Sonraki Lastcol = sh.Cells.Find(What:="*", _ After:=sh.Range("A1")), _ Lookat:=xlPart, _ LookIn:=xlFormüller, _ SearchOrder: =xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column On Error GoTo 0 End Function