|
▼さくら さん:
>A列に様々な数値が入力されています。
>その数値の中から、10.01以上10.05以下の数値のみを、
> A1セルから列方向に順に検索→データ取得し、同一ファイルのsheet2の
> A1セルから列方向に出力させたいのですが。
「列方向」というのは 「行方向」(たて方向)のまちがいだとして、
思うんですけど、A列の数値だけ書き出しても、意味ないのでは?
B列、C列...つまり、表の他の項目もいっしょに書き出さないと
実用的な結果にならない気がします。
ということで、
Sheet1 の表を A列の数値がある条件の行だけ すべての列を転記する
マクロは さきほどのを少し修正して、以下のようになります。
Sub tryA()
With Sheets("Sheet2")
.UsedRange.ClearContents
'条件をシートに書き出す
.Range("Z1:AA1").Formula = "=Sheet1!$A$1"
.Range("Z2").Formula = ">=10.01"
.Range("AA2").Formula = "<=10.05"
'フィルターAdvancedFilter 実行
Sheets("Sheet1").Range("A1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range("Z1:AA2"), _
CopyToRange:=.Range("A1")
.Activate
End With
End Sub
|
|