回答受付が終了しました

ID非公開

2021/7/31 17:09

11回答

VBAに詳しい方教えてください。

Visual Basic53閲覧

回答(1件)

0

Sub test() Dim i Dim MaxRow Application.ScreenUpdating = False MaxRow = Cells(Rows.Count, 1).End(xlUp).Row For i = MaxRow To 1 Step -1 If InStr(Cells(i, 1), "ううう") >= 1 Then Rows(i).Delete End If Next i End Sub