Delete row with specific word – VBA

Desember 25, 2009

Ada kalanya kita ingin menghapus baris yang mempunyai kata kunci tertentu pada Ms Excell, kita akan membuat makro untuk melakukan itu. Ambil contoh kita akan menghapus baris yang mengandung kata “hospital”. Untuk kata kunci lain tinggal mengganti kata “hospital” dengan kata kunci yang diinginkan.

Untuk membuatnya edit makro-nya, tekan Alt-F11 atau Tools>Makro>Visual Basic Editor.

Copy and paste kode berikut.

Sub DoIt()
Dim Sentences
Dim i As Long
Dim iWordPos As Integer

Sentences = Range(“A1”, Range(“A65536”).End(xlUp))
lRow = 0
For i = Range(“A65536”).End(xlUp).Row To 1 Step -1
iWordPos = InStr(LCase(Sentences(i, 1)), LCase(“hospital”))
If iWordPos > 0 Then
Range(“A” & i).EntireRow.Delete shift:=xlShiftUp
End If
Next i
End Sub

Sumber: http://www.ozgrid.com/forum/showthread.php?t=84092

Jika ingin menghapus baris yang “blank”, kode-nya lebih sederhana

Sub DeleteBlankARows()
Dim r As Long
For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(r, 1) = “” Then Rows(r).Delete
Next r
End Sub

http://www.ozgrid.com/forum/showthread.php?t=50643

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: