Vba: cara menghapus konten jika sel berisi nilai tertentu

Anda bisa menggunakan sintaks dasar berikut untuk menghapus konten setiap sel di lembar kerja Excel yang sama dengan nilai tertentu:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

Makro khusus ini akan menghapus konten setiap sel dalam rentang A2:A11 yang sama dengan “Mavs”.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Gunakan VBA untuk menghapus konten jika sel berisi nilai tertentu

Katakanlah kita memiliki lembar Excel dengan informasi tentang pemain bola basket yang berbeda:

Katakanlah kita ingin menghapus isi setiap sel di kolom Tim sama dengan “Mavs”.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.ClearContents
    Else
    End If
Next cell

End Sub

Setelah makro ini dijalankan, semua sel dengan nilai “Mavs” di kolom Tim akan dihapus:

Jika Anda ingin menghapus semua sel di setiap baris dengan nilai “Mavs” di kolom Tim , Anda bisa menggunakan sintaks berikut:

 SubClearContentsIfContains ()

Dim cell, rng As Range
Set rng = Range(" A2:A11 ")

For Each cell In rng
    If cell.Value = " Mavs " Then
    cell.EntireRow.ClearContents
    Else
    End If
Next cell

End Sub

Setelah kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa semua sel di setiap baris yang berisi “Mavs” di kolom Tim telah dihapus.

Catatan : Anda dapat menemukan dokumentasi lengkap metode ClearContents di VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menemukan baris yang terakhir digunakan
VBA: Cara menemukan kolom yang terakhir digunakan
VBA: Cara menampilkan semua sheet