Vba: cara menyalin garis yang terlihat ke lembar lain

Anda dapat menggunakan sintaks berikut di VBA untuk menyalin hanya baris yang terlihat dari satu lembar ke lembar lainnya:

 SubCopyVisibleRows ()

    Dim sourceWS As Worksheet
    Dim destinationWS As Worksheet
    
    Set sourceWS = ThisWorkbook.Sheets(" Sheet1 ")
    Set destinationWS = ThisWorkbook.Sheets(" Sheet2 ")

    sourceWS.Range(" A1:D999 ").SpecialCells(xlCellTypeVisible).Copy
    destinationWS.Cells(1, 1).PasteSpecial
    Application.CutCopyMode = False
   
End Sub

Makro khusus ini akan menyalin setiap baris yang terlihat dalam rentang A1:D999 pada Sheet1 dan menempelkannya mulai dari sel A1 pada Sheet2 .

Catatan : Baris Application.CutCopyMode = False menetapkan bahwa mode potong dan salin harus dinonaktifkan setelah menjalankan makro.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Salin baris yang terlihat ke lembar lain menggunakan VBA

Misalkan kita memiliki kumpulan data berikut di Lembar 1 yang berisi informasi tentang berbagai pemain bola basket:

Sekarang misalkan kita menerapkan filter pada kumpulan data untuk hanya menampilkan baris dengan nama tim yang sama dengan Mavs atau Spurs:

Sekarang katakanlah kita ingin menggunakan VBA untuk menyalin hanya sel yang terlihat dari Sheet1 ke Sheet2.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCopyVisibleRows ()

    Dim sourceWS As Worksheet
    Dim destinationWS As Worksheet
    
    Set sourceWS = ThisWorkbook.Sheets(" Sheet1 ")
    Set destinationWS = ThisWorkbook.Sheets(" Sheet2 ")

    sourceWS.Range(" A1:D999 ").SpecialCells(xlCellTypeVisible).Copy
    destinationWS.Cells(1, 1).PasteSpecial
    Application.CutCopyMode = False
   
End Sub

Saat kami menjalankan makro ini, kami menerima output berikut di Sheet2 :

Perhatikan bahwa setiap baris yang terlihat di Sheet1 telah disalin dan ditempelkan ke Sheet2 .

Catatan #1 : Kami menggunakan xlCellTypeVisible di makro untuk menentukan bahwa kami hanya ingin menyalin sel yang terlihat.

Catatan #2 : Anda dapat menemukan dokumentasi lengkap untuk metode Salin VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menemukan baris yang terakhir digunakan
VBA: menyalin baris ke lembar lain berdasarkan kriteria
VBA: Cara menempelkan nilai saja tanpa memformat