Bagaimana cara menyalin data ke lembar kerja lain dengan Filter Tingkat Lanjut di Excel?
Biasanya, kami dapat dengan cepat menerapkan Filter Lanjutan fitur untuk mengekstrak data dari data mentah di lembar kerja yang sama. Namun, terkadang, saat Anda mencoba menyalin hasil yang difilter ke lembar kerja lain, Anda akan mendapatkan pesan peringatan berikut. Dalam kasus ini, bagaimana Anda bisa menangani tugas ini di Excel?
Salin data ke lembar kerja lain dengan Filter Tingkat Lanjut menggunakan fitur Filter Tingkat Lanjut
Salin data ke lembar kerja lain dengan Filter Tingkat Lanjut dengan menggunakan kode VBA
Salin data ke lembar kerja lain dengan Filter Tingkat Lanjut menggunakan fitur Filter Tingkat Lanjut
Berikut ini solusi sederhana bagi Anda untuk menyelesaikan pekerjaan ini, lakukan seperti ini:
1. Aktifkan lembar kerja tempat Anda ingin menyalin hasil yang difilter dengan menggunakan fungsi Filter Tingkat Lanjut.
2. Lalu klik Data > Advanced, lihat tangkapan layar:
3. di Filter Lanjutan kotak dialog, pilih Salin ke lokasi lain dari Tindakan bagian, lalu klik 
tombol untuk memilih rentang data yang ingin Anda filter di lembar lain di samping Rentang daftar, lanjutkan mengklik tombol di samping Rentang kriteria untuk memilih kriteria dari lembar lain, lihat tangkapan layar:
4. Lalu klik tombol di samping Salin ke kotak untuk memilih sel tempat Anda ingin menampilkan hasil yang difilter dari lembar aktif, lalu klik OK tombol, hasil yang difilter telah diekstraksi ke lembar lain berdasarkan lembar data asli Anda.
Salin data ke lembar kerja lain dengan Filter Tingkat Lanjut dengan menggunakan kode VBA
Jika Anda ahli dengan kode VBA, Anda dapat menyelesaikan pekerjaan ini dengan mengikuti kode VBA.
1. Aktifkan lembar kerja yang ingin Anda filter dan salin hasilnya ke lembar lain.
2. Tahan ALT + F11 kunci di Excel, dan itu membuka file Microsoft Visual Basic untuk Aplikasi jendela.
3. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Salin data ke lembar kerja lain dengan Filter Tingkat Lanjut:
Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
Dim xCRg As Range
Dim xSRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
If xCRg Is Nothing Then Exit Sub
Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
If xSRg Is Nothing Then Exit Sub
xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
xSRg.Worksheet.Activate
xSRg.Worksheet.Columns.AutoFit
End Sub
4. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk membiarkan Anda memilih rentang data yang ingin Anda filter, lihat tangkapan layar:
5. Lalu klik OK, dan kotak dialog lain muncul untuk mengingatkan Anda untuk memilih rentang kriteria yang ingin Anda filter berdasarkan, lihat tangkapan layar:
6. Lanjutkan mengklik OK, di kotak dialog muncul, pilih sel dari lembar kerja baru lain di mana Anda ingin menampilkan hasil filter, lihat tangkapan layar:
7. Terakhir, klik OK tombol, data yang difilter telah dikeluarkan ke sheet lain yang ditentukan sesuai kebutuhan.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
