|
▼ま さん こんばんは
>Sub test()
>
>Dim 状況(1 To 4) As String
>Dim r As Long
>
>状況(1) = "*完了*"
>状況(2) = "*却下*"
>状況(3) = "*返却*"
>状況(4) = "*対応なし*"
>
>
>For r = 1 To 4
> Range("a:h").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
状況(1)〜(5)がh列にあるとしたら・・
Range("h1").AutoFilter 8, 状況(r)
に変えてみてください。
詳しくはヘルプをみてくださいね〜
|
|