Vba: jak wyczyścić zawartość, jeśli komórka zawiera określoną wartość
Możesz użyć następującej podstawowej składni, aby wyczyścić zawartość każdej komórki w arkuszu programu Excel równą określonej wartości:
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
To konkretne makro wyczyści zawartość każdej komórki w zakresie A2:A11 , która jest równa „Mavs”.
Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.
Przykład: Użyj VBA, aby wyczyścić zawartość, jeśli komórka zawiera określoną wartość
Załóżmy, że mamy arkusz Excela z informacjami o różnych koszykarzach:
Powiedzmy, że chcemy wyczyścić zawartość każdej komórki w kolumnie Zespół równą „Mavs”.
W tym celu możemy utworzyć następujące makro:
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
Po wykonaniu tego makra wszystkie komórki o wartości „Mavs” w kolumnie Zespół zostaną wyczyszczone:
Jeśli zamiast tego chcesz wyczyścić wszystkie komórki w każdym wierszu o wartości „Mavs” w kolumnie Zespół , możesz użyć następującej składni:
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
Po uruchomieniu tego makra otrzymamy następujący wynik:
Zwróć uwagę, że wszystkie komórki w każdym wierszu zawierające „Mavs” w kolumnie Zespół zostały wyczyszczone.
Uwaga : Pełną dokumentację metody ClearContents w VBA znajdziesz tutaj .
Dodatkowe zasoby
Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:
VBA: Jak znaleźć ostatnio używaną linię
VBA: Jak znaleźć ostatnio używaną kolumnę
VBA: Jak wyświetlić wszystkie arkusze