Daftar Isi
Jika Anda mencari beberapa cara termudah untuk menghapus baris menggunakan VBA maka Anda berada di tempat yang tepat.
Mari kita selami artikel utama.
Unduh Buku Kerja
VBA Hapus Baris.xlsm14 Cara Menghapus Baris Menggunakan VBA
Di sini, saya memiliki tiga tabel data untuk menunjukkan cara-cara menghapus baris menggunakan VBA Tabel pertama berisi beberapa Produk dari sebuah perusahaan dan Ukuran , Harga .
Yang kedua memiliki beberapa Kode Produk dan yang sesuai dengan mereka Ukuran Produk dan Harga
Dan yang terakhir berisi beberapa Nama Proyek dan masing-masing Tanggal Mulai dan Biaya .
Untuk membuat artikel, saya telah menggunakan Microsoft Excel 365 Anda dapat menggunakan versi lain sesuai dengan kenyamanan Anda.
Metode-1: Menghapus Baris Tunggal Menggunakan VBA
Katakanlah, Anda ingin menghapus baris yang berisi Produk Sepatu 1, dan untuk menghapus baris tunggal ini, Anda dapat mengikuti metode ini.
Langkah-01 :
➤Pergi ke Pengembang Tab>> Visual Basic Opsi
Kemudian, itu Editor Visual Basic akan terbuka.
➤Pergi ke Sisipkan Tab>> Modul Opsi
Setelah itu, a Modul akan dibuat.
Langkah-02 :
➤Tulis kode berikut
Sub dltrow1() Lembar Kerja("Tunggal").Baris(7).Seluruh Baris.Hapus End Sub Di sini, "Tunggal" adalah nama lembar kerja, dan Baris(7) akan memilih nomor baris.
.EntireRow.Delete akan menghapus seluruh baris 7.
➤ Tekan F5
Hasil :
Dengan cara ini, Anda akan menghapus baris yang berisi Produk nama Sepatu 1 .
Baca selengkapnya: Cara Menghapus Baris di Excel: 7 Metode
Metode-2: Hapus Beberapa Baris Menggunakan VBA
Jika Anda ingin menghapus beberapa baris seperti baris yang berisi Produk nama Sepatu1 , Sepatu2, dan Sepatu3 , maka Anda bisa mengikuti ini VBA kode.
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow2() Baris(13).SeluruhBaris.Hapus Baris(10).SeluruhBaris.Hapus Baris(7).SeluruhBaris.Hapus End Sub Disini, nomor baris 13, 10, dan 7 akan dihapus dan dalam penulisan nomor baris secara serial anda harus menulis dari nomor baris terakhir ke nomor baris pertama seperti kode berikut.
Jika tidak, setelah menghapus baris pertama seperti Baris 7, baris yang tersisa di bawah baris ini akan bergerak satu baris ke atas dan dengan demikian Baris 10 akan menjadi Baris 9, dan Baris 13 akan menjadi Baris 12. Karena alasan ini, Anda tidak akan dapat menghapus baris yang benar.
➤ Tekan F5
Hasil :
Kemudian, Anda akan menghapus baris-baris yang berisi Produk nama Sepatu 1 , Sepatu2, dan Sepatu3 .
Baca selengkapnya: Cara Menghapus Beberapa Baris di Excel (3 Metode)
Metode-3: Menghapus Baris dengan Memilih
Di sini, saya akan menunjukkan cara untuk menghapus baris sehubungan dengan sel aktif dari baris tersebut.
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow3() ActiveCell.EntireRow.Delete End Sub Ini akan menghapus baris yang memiliki sel aktif.
➤Simpan kode.
Langkah-02 :
➤Pilih sel mana pun dari baris yang ingin Anda hapus (Di sini saya telah memilih sel B7 )
➤Pergi ke Pengembang Tab>> Makro Opsi
Setelah itu, yang Makro Wizard akan terbuka.
➤Pilih Nama makro dltrow3 dan tekan Lari
Hasil :
Setelah itu, Anda akan menghapus baris yang berisi Produk nama Sepatu 1 .
Metode-4: Menghapus Semua Baris dalam Seleksi
Untuk menghapus semua baris pilihan, Anda bisa mengikuti metode ini.
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow4() Selection.EntireRow.Delete End Sub Ini akan menghapus semua baris pilihan.
➤Simpan kode.
Langkah-02 :
➤Pilih rentang baris yang ingin Anda hapus (Di sini, saya telah memilih rentang B7:D9 )
➤Pergi ke Pengembang Tab>> Makro Opsi
Setelah itu, yang Makro Wizard akan terbuka.
➤Pilih Nama makro dltrow4 dan tekan Lari
Hasil :
Kemudian, Anda akan menghapus baris-baris yang berisi Produk nama Sepatu 1 , Jaket1, dan Jaket2 .
Baca selengkapnya: Cara Menghapus Baris yang Dipilih di Excel (8 Pendekatan)
Metode-5: Menghapus Baris Jika Ada Sel yang Kosong
Di sini, saya memiliki sel kosong yang B9 (Saya telah menghapus nilai dari sel ini untuk metode ini), dan menggunakan VBA kode saya akan menghapus baris yang memiliki B9 sel.
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow5() Range("B5:D13").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub Ini akan menghapus semua baris dalam rentang "B5:D13" memiliki sel kosong.
➤ Tekan F5
Hasil :
Kemudian, Anda akan dapat menghapus baris yang berisi sel kosong tersebut.
Baca selengkapnya: Cara Menghapus Baris Kosong di Excel (11 Metode)
Metode-6: Menghapus Baris Jika Seluruh Baris Kosong
Di sini, saya memiliki sel kosong yang B9 (Saya telah menghapus nilai untuk metode ini), dan baris kosong yang merupakan baris 12 (saya telah menghapus nilai untuk metode ini), dan menggunakan VBA kode dan Fungsi COUNTA Saya akan menghapus baris yang kosong.
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow6() Dim cell As Range For Each cell In Range("B5:D13") If Application.WorksheetFunction.CountA(cell.EntireRow) = 0 Then cell.EntireRow.Delete End If Next cell End Sub "B5:D13" adalah rentang data dan UNTUK loop akan bekerja untuk setiap sel dalam rentang ini.
CountA (sel.Seluruh Baris) akan mengembalikan jumlah sel yang tidak kosong dan ketika menjadi 0 maka baris tersebut akan dihapus.
➤ Tekan F5
Hasil :
Setelah itu, Anda akan dapat menghapus baris kosong tetapi tidak akan menghapus baris apa pun yang tidak memiliki semua sel dari baris ini kosong.
Baca selengkapnya: Cara Menggunakan VBA untuk Menghapus Baris Kosong di Excel
Metode-7: Menghapus Setiap Baris ke-n
Anda bisa menghapus setiap baris ke-n (dalam hal ini setiap baris ke-3) dengan mengikuti metode ini.
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow7() rc = Range("B5:D13").Rows.Count For i = rc To 1 Step -3 Range("B5:D13").Rows(i).EntireRow.Delete Next i End Sub "B5:D13" adalah rentang data dan rc akan mengembalikan jumlah baris total dari rentang ini yaitu 9 .
Di sini, yang UNTUK loop akan dimulai dari baris terakhir yaitu rc atau 9 dalam kasus ini dan berakhir dengan baris pertama.
Langkah -3 akan membantu menghapus setiap 3 baris dalam kisaran ini.
➤ Tekan F5
Hasil :
Kemudian, Anda akan menghapus baris-baris yang berisi Produk nama Sepatu 1 , Sepatu2, dan Sepatu3 .
Baca selengkapnya: Cara Menghapus Setiap Baris ke-n di Excel (6 Cara Termudah)
Bacaan serupa:
- Cara Menghapus Baris yang Dipilih dengan Excel VBA (Panduan Langkah demi Langkah)
- Hapus Baris yang Tidak Digunakan di Excel (8 Cara Mudah)
- Cara Menghapus Baris Tersembunyi di Excel (3 Metode)
- Hapus Baris Tak Terbatas di Excel (5 Cara Mudah)
- Cara Menghapus Baris di Excel yang Berlangsung Selamanya (4 Cara Mudah)
Metode-8: Menghapus Baris Berdasarkan Nilai Sel
Dalam metode ini, saya akan menghapus baris yang memiliki nilai tertentu Kemeja 2 .
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow8() Dim cell As Range For Each cell In Range("B5:D13") If cell.Value = "Shirt 2" Then cell.EntireRow.Delete End If Next cell End Sub "B5:D13" adalah rentang data dan UNTUK loop akan bekerja untuk setiap sel dalam rentang ini.
Jika sel mana pun dari suatu baris berisi nilai "Baju 2" maka baris tersebut akan dihapus.
➤ Tekan F5
Hasil :
Dengan cara ini, Anda akan menghapus baris yang berisi Produk nama Kemeja 2 .
Baca selengkapnya: Makro VBA untuk Menghapus Baris jika Sel Berisi Nilai di Excel (2 Metode)
Metode-9: Menghapus Baris Duplikat
Di sini, saya memiliki dua baris yang memiliki Kode Produk 97375 dan saya ingin menghapus salah satu baris yang ditandai dengan kotak merah di bawah ini.
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow9() Range("B5:D13").RemoveDuplicates Columns:=1 End Sub Di sini, "B5:D13" adalah rentang data dan Kolom:=1 berarti akan mencari nilai duplikat hanya dalam satu kolom yang merupakan kolom awal Kolom B tetapi jika Anda ingin mencari di kolom lain juga, Anda dapat menggunakan nomor ini sesuai dengan kebutuhan Anda.
➤ Tekan F5
Hasil :
Setelah itu, Anda akan dapat menghapus baris yang mirip dengan baris lain.
Baca selengkapnya: Cara Menghapus Baris Duplikat di Excel dengan VBA (8 Cara Efektif)
Metode-10: Menghapus Baris dalam Tabel
Misalkan, Anda memiliki tabel berikut yang namanya adalah Tabel1 dan sekarang Anda ingin menghapus baris nomor 6 dari tabel ini. Untuk melakukan ini, Anda dapat mengikuti metode ini.
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow10() ActiveWorkbook.Worksheets("Table").ListObjects("Table1").ListRows(6).Delete End Sub Di sini, "Tabel" adalah nama sheet, "Tabel1" adalah nama tabel dan 6 adalah nomor baris tabel ini yang ingin Anda hapus.
➤ Tekan F5
Hasil :
Dengan cara ini, Anda akan menghapus baris yang Anda inginkan dari tabel ini.
Baca selengkapnya: Cara Menghapus Baris Duplikat Berdasarkan Satu Kolom Menggunakan Excel VBA
Metode-11: Menghapus Baris yang Terlihat Setelah Penyaringan
Di sini, saya memiliki tabel data yang difilter oleh Harga kolom untuk nilai lebih dari $1,500.00 dan saya ingin menghapus semua baris yang terlihat setelah pemfilteran.
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow11() Range("B5:D13").SpecialCells(xlCellTypeVisible).EntireRow.Delete End Sub Di sini, "B5:D13" adalah kisaran data.
➤ Tekan F5
Sekarang, semua baris yang terlihat setelah pemfilteran akan dihapus. Anda sekarang dapat mengembalikan baris yang tersembunyi dengan memilih tombol Filter tanda di Harga kolom.
➤Klik pada Pilih Semua opsi
➤ Tekan OK
Hasil :
Akhirnya, Anda akan mendapatkan kembali baris-baris tersembunyi dalam tabel data.
Baca selengkapnya: Cara Memfilter dan Menghapus Baris dengan VBA di Excel (2 Metode)
Metode-12: Menghapus Baris Berdasarkan Sel Aktif Terakhir
Di sini, sel aktif terakhir saya adalah sel B13 dan saya ingin menghapus ini memiliki sel aktif terakhir dari tabel data berikut.
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow12() Cells(Rows.Count, 2).End(xlUp).EntireRow.Delete End Sub Di sini, 2 berarti Kolom B di mana saya memiliki sel aktif saya, Anda dapat mengubah nomor sesuai dengan kebutuhan Anda.
➤ Tekan F5
Hasil :
Dengan cara ini, Anda akan menghapus baris aktif terakhir Anda.
Baca selengkapnya: Kode VBA Excel untuk Menghapus Baris Berdasarkan Beberapa Nilai Sel (3 Kriteria)
Metode-13: Menghapus Baris yang memiliki String apa pun
Asumsikan, Anda ingin menghapus baris yang memiliki string apa pun, dan untuk melakukan ini Anda dapat mengikuti metode ini.
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow13() Dim FirstRow As Long Dim LastRow As Long Dim FirstColumn As Long Dim LastColumn As Long Dim sheet As Worksheet Dim Rng As Range FirstRow = 5 FirstColumn = 2 Set sheet = Worksheets("String") With sheet With .Cells LastRow = .Find(What:="*", LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row LastColumn = .Find(What:="*",LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column End With Set Rng = .Range(.Cells(FirstRow, FirstColumn), .Cells(LastRow, LastColumn)) End With On Error Resume Next Rng.SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete End Sub Di sini, "string" adalah nama sheet, nomor baris pertama dari rentang data ini adalah 5 dan nomor kolom awal adalah 2
The Dengan memungkinkan Anda menentukan objek atau tipe yang ditentukan pengguna sekali untuk seluruh rangkaian pernyataan.
Pada Kesalahan Lanjutkan Berikutnya menetapkan bahwa, ketika terjadi kesalahan run-time, kontrol akan beralih ke pernyataan yang mengikuti pernyataan di mana kesalahan terjadi.
Baris Terakhir dan LastColumn mengembalikan baris dan kolom terakhir dari rentang data.
Sel Khusus(xlCellTypeConstants, xlTextValues) akan memilih baris yang memiliki nilai teks apa pun dalam rentang tersebut.
➤ Tekan F5
Hasil :
Setelah itu, Anda akan menghapus baris yang memiliki string teks apa pun.
Baca selengkapnya: Pintasan Excel untuk Menghapus Baris (Dengan Teknik Bonus)
Metode-14: Menghapus Baris Berdasarkan Tanggal
Di sini, saya akan menghapus baris yang memiliki tanggal khusus 11/12/2021 (mm/dd/yyyy) dalam metode ini dengan menggunakan Fungsi DATEVALUE .
Langkah-01 :
➤Ikuti Langkah-01 dari Metode-1
Sub dltrow14() Dim FirstRow As Long Dim LastRow As Long Dim CriteriaColumn As Long Dim myDate As Date Dim sheet As Worksheet Dim i As Long Dim myRowsWithDate As Range FirstRow = 5 CriteriaColumn = 3 myDate = DateValue("11/12/2021") Set sheet = Worksheets("Date") With sheet LastRow = .Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row For i = LastRow To FirstRow Step -1 With .Cells(i, CriteriaColumn) If .Value = myDate Then If Not myRowsWithDate Is Nothing Then Set myRowsWithDate = Union(myRowsWithDate, .Cells) Else Set myRowsWithDate = .Cells End If End If End If End WithNext i End With If Not myRowsWithDate Is Nothing Then myRowsWithDate.EntireRow.Delete End Sub Di sini, "Tanggal" adalah nama sheet, nomor baris pertama dari rentang data ini adalah 5 dan kolom kriteria (kolom mana yang memiliki tanggal) nomornya adalah 3 .
The Dengan memungkinkan Anda menentukan objek atau tipe yang ditentukan pengguna sekali untuk seluruh rangkaian pernyataan.
Pada Kesalahan Lanjutkan Berikutnya menetapkan bahwa, ketika terjadi kesalahan run-time, kontrol akan beralih ke pernyataan yang mengikuti pernyataan di mana kesalahan terjadi.
Baris Terakhir mengembalikan baris terakhir dari rentang data dan di sini, file UNTUK loop akan dimulai dari baris terakhir yaitu Baris Terakhir atau 6 dalam hal ini, dan berakhir dengan baris pertama.
DATEVALUE akan mengubah tanggal teks menjadi nilai.
Di sini, Serikat akan mengembalikan gabungan beberapa rentang yang sesuai dengan sel yang memiliki tanggal 11/12/2021 dan akhirnya, rentang akan dihapus.
➤ Tekan F5
Hasil :
Setelah itu, Anda akan menghapus baris yang memiliki tanggal tertentu 11/12/2021 .
Konten Terkait: Excel VBA untuk Menghapus Baris dengan Data Tertentu (9 Contoh)
Bagian Latihan
Untuk melakukan latihan sendiri, kami telah menyediakan Praktek seperti di bawah ini dalam lembar bernama Praktek . Silakan lakukan sendiri.
Kesimpulan
Dalam artikel ini, saya mencoba membahas cara termudah untuk menggunakan VBA Jika Anda memiliki saran atau pertanyaan, jangan ragu untuk membagikannya di bagian komentar.
