|
▼本山中 さん:
まず、アップしたSample2は、こちらのテストをSheet2でやりましたので
コードも Sheet2になっています。そこは、実際のシート名に直していただきましたか?
で、いずれにしてもA〜H列のリストだということですから、コードを直す必要があります。
Sub Sample2()
With Sheets("Sheet1")
If .AutoFilterMode Then .AutoFilter.Range.AutoFilter
.Range("A1").CurrentRegion.AutoFilter
With .AutoFilter.Range
.AutoFilter Field:=2, Criteria1:=Array("1234", "2345", "3456", "4567"), _
Operator:=xlFilterValues
If .Columns(1).SpecialCells(xlCellTypeVisible).Count > 1 Then _
.Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
.AutoFilter
End With
End With
End Sub
|
|