|
▼さくら さん:
アップしたものは、A列を絞り込み、それをSheet2に転記するものですが、
絞り込んだ結果のB列を転記ということなら以下。
ただし、フィルター詳細設定にしろ、オートフィルターにしろ
【1行目】がタイトル行でなければいけません。
いやいや、それはいやだということなら、マクロ内でダミータイトル行を挿入し
あとで削除する方法も愛rますが、とりあえずは1行目をタイトル行にした上で
以下を試してみてください。
Sub Test2()
ActiveSheet.AutoFilterMode = False
Range("A1").AutoFilter Field:=1, Criteria1:=">=10.1", _
Operator:=xlAnd, Criteria2:="<=10.5"
With ActiveSheet.AutoFilter.Range
If .SpecialCells(xlCellTypeVisible).Count > 0 Then
.Columns("B").Copy Sheets("Sheet2").Range("A1")
End If
End With
ActiveSheet.AutoFilterMode = False
End Sub
|
|