Menampal ke Set Data yang Disaring - Petua Excel

Joe bertanya adakah cara untuk melakukan operasi tampal yang disaring di Excel.

Katakan anda mempunyai 1000 rekod pada Helaian1. Anda menapis set data tersebut untuk menunjukkan hanya catatan dengan ProdID = Z. Pilih set data dan tampal ke Helaian2. Dengan baik, Excel hanya membawa rekod yang dapat dilihat, jadi anda mempunyai sekumpulan sel yang berdekatan. Mungkin anda melakukan beberapa perubahan pada rekod tersebut dan sekarang anda perlu memasukkannya semula ke dalam set data asal. Excel TIDAK menawarkan cara mudah untuk melakukan ini. Makro dalam video ini akan membantu prosesnya. Saya merakam Learn Excel Podcast episod 977 yang menunjukkan makro untuk membantu tindakan ini. Di sini anda akan menemui video dan kod yang digunakan dalam buku kerja Excel.

Tonton Video

Salin kod ini

Saya sedikit menyesuaikan kod dari video. Ini mengandaikan bahawa anda akan menyalin baris tajuk dan rekod yang disaring dari Sheet1 ke Sheet2:

Sub PasteBack() ' Assumes the Filterered Sheet1 is active Set DataToCopy = Sheet2.Range("A1").CurrentRegion n = 2 ' index for range to copy from Sheet2 one row at a time, skipping headers For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row ' row 1 is header If Not Rows(i).Hidden Then DataToCopy.Offset(n - 1).Resize(1).Copy Cells(i, 1) n = n + 1 If n> DataToCopy.Rows.Count Then Exit Sub End If Next i End Sub

Penyelesaian Tanpa Makro

Setelah video pertama disiarkan, Gary menghantar penyelesaian baru menggunakan Paste Skip Blanks. Tonton video itu di sini:.