|
▼ま さん こんばんは
>セルAQ(タイトル:商品名)の列に次の文字が含まれるものは
>行毎削除したいのですが、【2532】の書き込みを参考にし作ってみましたが
>うまく実行されません。
回答うちの1つとしてですがどうでしょう?
コードはそのまま使わせていただきました。
Sub aaa()
Dim 品名(1 To 5) As String
Dim r As Long
品名(1) = "*野菜*"
品名(2) = "*乾燥物*"
品名(3) = "*果物*"
品名(4) = "*飲料*"
品名(5) = "*揚げ物*"
For r = 1 To 5
Range("a:aq").AutoFilter 43, 品名(r)
With ActiveSheet.AutoFilter.Range
On Error Resume Next
.Offset(1).Resize(.Rows.Count - 1) _
.SpecialCells(xlVisible).EntireRow.Delete (xlUp)
On Error GoTo 0
End With
Selection.AutoFilter
Next r
End Sub
|
|