Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - usunięcie zawartości jeśli komórka zawiera

arturpl · Wysłany: 04-08-2022, 07:24 **usunięcie zawartości jeśli komórka zawiera**

Hej w jaki sposób w VBA wyczyścić zawartość komórki jeśli zawiera ona konkretny tekst ?
Przykładowo w zakresie A1:B80 chce wyczyścić komórki które zawierają frazę "wiersz" i komórka A74 zawiera "Alicja pisze długie wiersze o miłości" to powinna zostać wyczyszczona

kuma · Wysłany: 04-08-2022, 08:35

Nie wiem jaki masz układ danych w arkuszu (brak załącznika).
Przyjąłem zakres na sztywno 'a1:b80'. Przetestuj.

Kod:

Sub test_kuma()
Dim r As Object, mcol As Object
Dim i As Integer, ii As Integer
Dim toclear As String
Dim a()

a = [a1:b80].Value
Set r = VBA.CreateObject("VBScript.RegExp")
With r
.Pattern = ".*wiersz.*"
.MultiLine = True
.Global = True
.IgnoreCase = True
For i = 1 To UBound(a)
For ii = 1 To UBound(a, 2)
If .test(a(i, ii)) Then toclear = toclear & "," & Cells(i, ii).Address
Next
Next
End With
toclear = Mid(toclear, 2)
If Len(toclear) > 0 Then Range(toclear).ClearContents
Set r = Nothing
End Sub

ple4 · Wysłany: 04-08-2022, 12:08

Kod:

Option Explicit

Sub aaa()
Const sht As String = "Arkusz1"
Const clrng As String = "A1:I20"
Const wht As String = "wiersz"

Dim fnd As String, c As Range

fnd = "*" & wht & "*"

With ThisWorkbook.Worksheets(sht)
.Select
For Each c In .Range(clrng).Cells
If c.Value Like fnd Then c.Value = vbNullString
Next
End With
End Sub

umiejead · Wysłany: 05-08-2022, 23:11

Na przyszłość (ale kliknij teraz link w mojej sygnaturce) - zastosuj się.
.

arturpl · Wysłany: 06-08-2022, 04:32

Dziękuję, działa tak jak chciałem :)
umiejead - przyjąłem do wiadomości i będę dodawał pliki :)