|
みなさん書込みありがとうございました。
いただいたコードを参考に
以下3つを変更し、マクロ実行してみたのですが、エラーが出て失敗しました。
どこが間違っているのか分からないのですが、
アドバイスいただけないでしょうか。
よろしくお願い致します。
---------------------------------------------
実行時エラー'1004'
RangeクラスのAutoFilterメソッドが失敗しました。
---------------------------------------------
変更した個所-------------------------------------------------------------
・品名→状況
・Dim 状況(1 To 5) As String→Dim 状況(1 To 4) As String
・Range("AQ1").AutoFilter 1, 品名(r)→Range("a:h").AutoFilter 43, 状況(r)
-------------------------------------------------------------------------
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
|
|