|
抽出がうまくいかない可能性については、検索値の書式が問題である可能性が
大きいです。仮に数値の 1 を %表示にして小数点以下まで出す書式だと、
単純な文字列の比較ではダメだったと思います。その上、%を全角にしていたら
ますます予想不可能ですね。いちおう以下のコードでテストしてみて下さい。
Dim MyR As Range
Set MyR = Range("F7", Range("F65536").End(xlUp))
Range("F6", Range("F65536").End(xlUp)) _
.AutoFilter Field:=1, Criteria1:="100.0%"
On Error Resume Next
MyR.SpecialCells(12).EntireRow.Copy Sheets("作業済").Range("A1")
ActiveSheet.AutoFilterMode = False
Set MyR = Nothing
どうしても抽出が出来ないようなら、フィルターを止めて検索範囲をループで
見ていって、Textプロパティで判定するのが確実です。
シートをループして処理するのは、その先の話になりますが
Dim i As Integer
For i = 1 To 10
With Sheets("データ" & i)
処理
End With
Next i
というような構造にするだけです。
|
|