VBA Hapus Baris - Contoh untuk Menghapus Baris Excel menggunakan VBA

Daftar Isi

Excel VBA Hapus Baris

Excel VBA Hapus Baris

Biasanya di lembar kerja excel, kami memiliki dua metode berbeda untuk menghapus baris satu menjadi pintasan keyboard dan lainnya dengan menggunakan metode klik kanan dan sisipkan tetapi di VBA kami harus menggunakan perintah hapus dan pernyataan lembar kerja untuk menghapus baris apa pun bersama-sama, trik untuk ini adalah jika kita perlu menghapus satu baris kita memberikan referensi baris tunggal tetapi untuk beberapa kolom kita memberikan referensi beberapa baris.

Menggunakan VBA Delete Row Method, kita dapat menghapus semua baris kosong, dan kita dapat menghapus baris berdasarkan nilai sel. Kami juga dapat menghapus seluruh baris jika ada sel yang kosong.

Pada artikel ini, kita akan membahas metode "VBA Delete Row". Buat diri Anda sibuk selama 15 hingga 20 menit berikutnya untuk mempelajari konsep tersebut.

Bagaimana cara menghapus baris?

Contoh 1

Di VBA, kami perlu menyebutkan baris yang kami hapus.

Kode:

Sub DeleteRow_Example1 () Sel (1, 1) End Sub

Sel (1, 1) berarti baris pertama kolom pertama yaitu sel A1. Kemudian kami menggunakan metode "hapus".

Kode:

Sub DeleteRow_Example1 () Sel (1, 1). Hapus End Sub

Sekarang ini akan menghapus sel pertama. Semua nilai sisi kanan akan bergeser satu sel ke kiri.

Contoh # 2

Jika Anda ingin menghapus seluruh baris, kita perlu menggunakan properti "Seluruh Baris," maka kita perlu menggunakan metode "hapus" untuk menghapus seluruh baris sel yang telah kita pilih.

Kode:

Sub DeleteRow_Example2 () Sel (1, 1) .EntireRow. Hapus End Sub

Misalnya, saya telah memasukkan beberapa karakter di lembar excel sebagai berikut.

Sekarang, jika saya menjalankan kode ini, itu akan menghapus seluruh baris, bukan satu sel.

Contoh # 3

Kita dapat menghapus baris tersebut dengan beberapa cara. Pada contoh di atas, kami telah menghapus baris dengan menggunakan properti CELLS. Sekarang kita akan melihat cara menghapus dengan menggunakan properti ROWS.

Sekarang kita perlu menyebutkan baris apa yang perlu kita hapus. Katakanlah kita perlu menghapus baris ^ke- 5 .

Sekarang gunakan properti "Seluruh Baris".

Setelah memilih properti, yang perlu kita lakukan yaitu, metode. Kita perlu menghapus baris tersebut.

Kode:

Sub DeleteRow_Example3 () Baris (5) .EntireRow. Hapus End Sub

Jadi, kode ini akan menghapus baris ^ke- 5 .

Contoh # 4

Hapus Beberapa Baris dengan Menggunakan Objek Rentang

Bagaimana cara kami menghapus beberapa baris?

Kita bisa menggunakan objek VBA RANGE untuk menghapus lebih dari satu baris. Asumsikan Anda memiliki beberapa nilai dari sel A1 hingga A6.

Sekarang saya ingin menghapus 5 baris pertama, jadi saya bisa mereferensikan baris ini dengan menggunakan objek Range sebagai "Range (" A1: A5 ")"

Kode:

Sub DeleteRow_Example4 () Range ("A1: A5") End Sub

Sekarang saya ingin menggunakan kata properti "Seluruh Baris".

Kode:

Sub DeleteRow_Example4 () Range ("A1: A5"). Seluruh Baris Akhir Sub

Di seluruh baris ini, kita perlu melakukan metode penghapusan, jadi gunakan metode Hapus.

Kode:

Sub DeleteRow_Example4 () Range ("A1: A5"). Keseluruhan Baris.Hapus End Sub

Sekarang ini akan menghapus baris yang dipilih.

Contoh # 5

Delete Rows Based On Cell Value

We can also use this “EntireRow.Delete” method to delete the row based on cell value in VBA. For example, I have Yes & No values from cell A1 to A10.

Now we need to delete the rows which have the value “No.” To perform this task, we need to use the function “IF” with loops to delete all the rows which have the value of “No.”

The below code will do the job for us.

Code:

Sub DeleteRow_Example5() Dim k As Integer For k = 10 To 1 Step -1 If Cells(k, 1).Value = "No" Then Cells(k, 1).EntireRow.Delete End If Next k End Sub

Example #6

Delete All the Blank Cells Rows

There are situations where we need to delete the entire row if any of the cells in the range are blank. For example, I have below set of data.

All the colored cells are blank, so I need to delete the entire row. We can perform this task with two sets of code. Below is the code.

Code:

Sub DeleteRow_Example6() Range("A1:F10").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub

This will identify the blank cells in the range A1 to F10.IF any blank cells are found, they will delete the entire row.

The problem with this code is it will only delete the blank cell’s row only in the range A1 to F10, but if any cells are blank in any other cells, it will not delete. So keeping this in mind, I have written one more code.

Code:

Sub DeleteRow_Example7 () Redupkan RangeToDelete Sebagai Range Redup DeletionRange As Range Set RangeToDelete = Application.InputBox ("Silakan pilih kisaran", "Penghapusan Baris Sel Kosong", Jenis: = 8) Set DeletionRange = RangeToDelete RangeToDelete.SpecialCells (xlCellTypeBire.SpecialCells (xlCellTypeBire) .Hapus End Sub