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

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany. Wymagane pola są oznaczone *