|
▼さくら さん:
kanabunさんからフィルターオプション案がでていますので、もう1つのオートフィルターで。
(1行目にタイトルがあるという前提ですが)
フィルターを掛け、抽出したものをコピペする操作をマクロ記録しますと
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveSheet.Range("$A$1:$A$13").AutoFilter Field:=1, Criteria1:=">=10.1", _
Operator:=xlAnd, Criteria2:="<=10.5"
Columns("A:A").Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
End Sub
これを整理すると
Sub Test()
ActiveSheet.AutoFilterMode = False
Columns("A").AutoFilter Field:=1, Criteria1:=">=10.1", _
Operator:=xlAnd, Criteria2:="<=10.5"
With ActiveSheet.AutoFilter.Range
If .SpecialCells(xlCellTypeVisible).Count > 0 Then
.Copy Sheets("Sheet2").Range("A1")
End If
End With
ActiveSheet.AutoFilterMode = False
End Sub
|
|