Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara memfilter daftar dan menghapus baris lainnya yang tersembunyi atau terlihat di Excel?

Untuk daftar yang difilter, Anda mungkin perlu menghapus baris yang tersembunyi atau terlihat untuk menyimpan hanya data yang berguna. Pada artikel ini, kami akan menunjukkan kepada Anda metode untuk menghapus baris lainnya yang tersembunyi atau terlihat dari daftar yang difilter di Excel.

Hapus baris tersembunyi di lembar kerja aktif dengan kode VBA
Hapus baris yang terlihat dari daftar yang difilter dengan memilih semua sel yang terlihat
Hapus dengan mudah baris tersembunyi atau terlihat dari daftar yang difilter dengan Kutools for Excel


Hapus baris tersembunyi di lembar kerja aktif dengan kode VBA

Bagian ini akan menunjukkan kepada Anda kode VBA untuk menghapus baris tersembunyi di lembar aktif. Silakan lakukan sebagai berikut.

1. Aktifkan lembar kerja yang Anda butuhkan untuk menghapus baris tersembunyi, tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Di jendela Microsoft Visual Basic for Applications, klik Menyisipkan > Modul. Dan kemudian salin dan tempel kode VBA di bawah ini ke jendela Modul.

Kode VBA: Hapus baris tersembunyi

Sub RemoveHiddenRows()
	Dim xRow As Range
	Dim xRg As Range
	Dim xRows As Range
	On Error Resume Next
	Set xRows = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
	If xRows Is Nothing Then Exit Sub
		For Each xRow In xRows.Columns(1).Cells
			If xRow.EntireRow.Hidden Then
				If xRg Is Nothing Then
					Set xRg = xRow
				Else
					Set xRg = Union(xRg, xRow)
				End If
			End If
		Next
		If Not xRg Is Nothing Then
			MsgBox xRg.Count & " hidden rows have been deleted", , "Kutools for Excel"
			xRg.EntireRow.Delete
		Else
			MsgBox "No hidden rows found", , "Kutools for Excel"
		End If
	End Sub

3. tekan F5 kunci untuk menjalankan kode. Jika ada baris tersembunyi di lembar aktif, setelah menjalankan kode, kotak dialog akan muncul untuk memberi tahu Anda berapa banyak baris tersembunyi yang telah dihapus. Klik OK tombol untuk menghapus baris tersembunyi. Lihat tangkapan layar:

doc hapus sisanya 1

Jika tidak, Anda akan mendapatkan kotak dialog berikut setelah menjalankan kode.

doc hapus sisanya 1

Note: kode VBA di atas tidak hanya dapat menghapus baris tersembunyi dari daftar yang difilter, tetapi juga menghapus baris tersembunyi yang telah Anda sembunyikan secara manual sebelumnya.


Hapus baris yang terlihat dari daftar yang difilter dengan memilih semua fitur sel yang terlihat

Untuk menghapus baris yang terlihat dari daftar yang difilter, lakukan hal berikut.

1. Pilih semua baris yang disaring, dan tekan F5 kunci untuk membuka pergi Untuk kotak dialog, lalu klik Khusus tombol. Lihat tangkapan layar:

doc hapus sisanya 1

2. Dalam Pergi ke khusus kotak dialog, periksa Hanya sel yang terlihat opsi, dan kemudian klik OK .

doc hapus sisanya 1

3. Sekarang semua baris yang terlihat dipilih, klik kanan pilihan tersebut, lalu klik Hapus Baris.

doc hapus sisanya 1

Hingga saat ini, semua baris yang terlihat dihapus dari daftar yang difilter.


Hapus dengan mudah baris tersembunyi atau terlihat dari daftar yang difilter dengan Kutools for Excel

Dua metode di atas mungkin bukan solusi yang diinginkan bagi banyak pengguna Excel, di sini kami memperkenalkan Anda alat praktis. Dengan Hapus Baris & Kolom Tersembunyi (Terlihat) kegunaan Kutools untuk Excel, Anda dapat dengan mudah menghapus baris tersembunyi dalam rentang / lembar yang dipilih, lembar aktif atau semua lembar kerja di Excel.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. Jika Anda hanya ingin menghapus baris yang tersembunyi atau terlihat dari daftar yang difilter, pilih rentang yang difilter secara manual, lalu klik Kutools > Delete > Hapus Baris & Kolom Tersembunyi (Terlihat). Lihat tangkapan layar:

2. Dalam Hapus Baris & Kolom Tersembunyi (Terlihat) kotak dialog, pertahankan Dalam Rentang yang dipilih dipilih di Lihat kedalam daftar drop-down (Anda dapat memilih opsi lain yang Anda butuhkan), centang Baris pilihan dalam Hapus jenis bagian, dan di Jenis detail bagian, periksa Baris yang terlihat or Baris tersembunyi pilihan yang Anda butuhkan. Dan terakhir klik OK .

3. Kemudian kotak dialog muncul untuk memberi tahu Anda berapa banyak baris yang telah dihapus, silakan klik OK .

  Jika Anda ingin memiliki uji coba gratis (30-day) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Hapus baris tersembunyi atau terlihat dari daftar yang difilter dengan Kutools for Excel


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh 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!
officetab bawah
Urutkan komentar berdasarkan
komentar (7)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Umpan balik tentang: makro untuk penghapusan baris tersembunyi - ini membutuhkan waktu terlalu lama untuk dijalankan pada 900 ribu baris agar berguna. 2+ jam pada OC'd Threadripper 1950X dan masih berjalan (harus mengakhiri tugas). Adakah cara untuk mengoptimalkannya untuk menggunakan banyak inti atau apakah ini batasan VBA?
Komentar ini diminimalkan oleh moderator di situs
Hai,
Kode telah dioptimalkan. Silakan coba. Terima kasih atas komentarmu.

Sub HapusHiddenRows()
Redupkan xFlag Sebagai Boolean
Redupkan xStr, xTemp Sebagai String
Redupkan xDiv, xMod Selamanya
Redupkan I, xCount, xRows As Long
Redupkan xRg, xCell, xDRg Sebagai Rentang
Redupkan xArr() Sebagai String
On Error Resume Next
Application.ScreenUpdating = Salah
Application.EnableEvents = Salah
Tetapkan xRg = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
Jika xRg Bukan Apa-apa Kemudian Keluar Sub
xRows = xRg.Rows.Count
Tetapkan xRg = xRg(1)
xFlag = Benar
xTemp = ""
xJumlah = 0
Untuk I = 1 Ke xRows
Atur xCell = xRg.Offset(I - 1, 0)
Lakukan Sementara xFlag
Jika xCell.EntireRow.Hidden Kemudian
xStr = xCell.Alamat
xFlag = Salah
Lain
Pergi Ke Ctn
End If
Lingkaran
Jika xCell.EntireRow.Hidden Kemudian
xTemp = xStr & "," & xCell.Address
End If
Jika Len(xTemp) > 171 Maka
xJumlah = xJumlah + 1
ReDim Pertahankan xArr(1 Sampai xCount)
xArr(xJumlah) = xStr
xStr = xCell.Alamat
Lain
xStr = xTemp
End If
ctn:
Next
xJumlah = xJumlah + 1
ReDim Pertahankan xArr(1 Sampai xCount)
xArr(xJumlah) = xStr
Untuk I = xHitung Sampai 1 Langkah -1
Jika saya = 1 Maka
xStr = Tengah(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
Lain
xStr = xArr(I)
End If
Jika xDRg Bukan Apa-apa Maka
Tetapkan xDRg = Rentang (xStr)
Lain
Tetapkan xDRg = Serikat(xDRg, Rentang(xStr))
End If
Jika (Len(xDRg.Address) >= 244) Atau (xCount = 1) Maka
xDRg.SeluruhRow.Hapus
Tetapkan xDRg = Tidak ada
End If
Next
Application.EnableEvents = Benar
Application.ScreenUpdating = Benar
End Sub
Komentar ini diminimalkan oleh moderator di situs
Luarbiasa, terimakasih! Akan meninjau pada kesempatan / kebutuhan saya berikutnya untuk ini dan membalas kembali.
Komentar ini diminimalkan oleh moderator di situs
Kode VBA untuk Menghapus baris tersembunyi bekerja dengan sempurna tanpa mengutak-atik. TERIMA KASIH!!
Komentar ini diminimalkan oleh moderator di situs
Terimakasih atas infonya. Ini sudah instruktif. Tolong apakah ada cara untuk memfilter dan menghapus nomor tertentu di baris hingga 1 juta? Bisakah kode di atas dimodifikasi untuk melakukannya?
Komentar ini diminimalkan oleh moderator di situs
Hai,
Maaf tidak menguji kode dalam data baris yang begitu besar. Mungkin Anda dapat membuat salinan data Anda dan menguji apakah kode tersebut dapat berfungsi.
Komentar ini diminimalkan oleh moderator di situs
Hai kode VBA ini sangat berguna.
Belum ada komentar yang diposting di sini
Silakan tinggalkan komentar Anda dalam bahasa Inggris
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL