|
▼UO3 さん:
たびたび恐縮です。
Sample2でトライしてみましたところ、
「RangeクラスのAutFilterメソッドが失敗しました。」という
エラーメッセージが出ます。
デバッグしたところ、
.Range("B1", .Range("B" & .Rows.Count).End(xlUp)).AutoFilter の部分が
黄色に染まります。
どのように対処すれば宜しいのでしょうか。
尚、データはA列からH列まであります。
>▼本山中 さん:
>
>2007ということなのでオートフィルターで。
>Sample1は、1行目からデータの場合。
>Sample2は、1行目がタイトル行の場合。
>
>Sub Sample1()
> With Sheets("Sheet1")
> .Rows(1).Insert Shift:=xlDown
> .Range("B1").Value = "タイトル" 'Dummy
> .Range("B1", .Range("B" & .Rows.Count).End(xlUp)).AutoFilter
> With .AutoFilter.Range
> .AutoFilter Field:=1, Criteria1:=Array("1234", "2345", "3456", "4567"), _
> Operator:=xlFilterValues
> .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
> .AutoFilter
> End With
> .Rows(1).Delete
>
> End With
>End Sub
>
>
>Sub Sample2()
> With Sheets("Sheet2")
> If .AutoFilterMode Then .AutoFilter.Range.AutoFilter
> .Range("B1", .Range("B" & .Rows.Count).End(xlUp)).AutoFilter
> With .AutoFilter.Range
> .AutoFilter Field:=1, Criteria1:=Array("1234", "2345", "3456", "4567"), _
> Operator:=xlFilterValues
> .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
> .AutoFilter
> End With
>
> End With
>End Sub
|
|