Loncat ke daftar isi utama

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 hari) 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

Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi this VBA code is awesome useful.
This comment was minimized by the moderator on the site
Thanks for the info. This has been instructive. Please is there a way to filter and delete for specific numbers in rows of up to 1 million? Can the code above be modified to do so?
This comment was minimized by the moderator on the site
Hi,
Sorry did not test the code in such huge row data. Maybe you can make a copy of your data and test if the code can work.
This comment was minimized by the moderator on the site
VBA code to Delete hidden rows worked perfectly with no fiddling. THANK YOU!!
This comment was minimized by the moderator on the site
Feedback re: the macro for hidden row deletions - this takes too long to run on 900k rows to be useful. 2+ hours on an OC'd Threadripper 1950X and still running (had to end task). Any way to optimize it to use multiple cores or is this a VBA limitation?
This comment was minimized by the moderator on the site
Hi,
The code has been optimized. Please have a try. Thank you for your comment.

Sub RemoveHiddenRows()
Dim xFlag As Boolean
Dim xStr, xTemp As String
Dim xDiv, xMod As Long
Dim I, xCount, xRows As Long
Dim xRg, xCell, xDRg As Range
Dim xArr() As String
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Set xRg = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xFlag = True
xTemp = ""
xCount = 0
For I = 1 To xRows
Set xCell = xRg.Offset(I - 1, 0)
Do While xFlag
If xCell.EntireRow.Hidden Then
xStr = xCell.Address
xFlag = False
Else
GoTo Ctn
End If
Loop
If xCell.EntireRow.Hidden Then
xTemp = xStr & "," & xCell.Address
End If
If Len(xTemp) > 171 Then
xCount = xCount + 1
ReDim Preserve xArr(1 To xCount)
xArr(xCount) = xStr
xStr = xCell.Address
Else
xStr = xTemp
End If
Ctn:
Next
xCount = xCount + 1
ReDim Preserve xArr(1 To xCount)
xArr(xCount) = xStr
For I = xCount To 1 Step -1
If I = 1 Then
xStr = Mid(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
Else
xStr = xArr(I)
End If
If xDRg Is Nothing Then
Set xDRg = Range(xStr)
Else
Set xDRg = Union(xDRg, Range(xStr))
End If
If (Len(xDRg.Address) >= 244) Or (xCount = 1) Then
xDRg.EntireRow.Delete
Set xDRg = Nothing
End If
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
Awesome, thank you! Will review at my next opportunity / need for this and reply back.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations