|
▼UO3 さん:
たびたびのお手数に感謝いたします。
うまくいきました。
ありがとうございます。
>▼本山中 さん:
>
>まず、アップした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
|
|