エクセルのマクロ

質問

現在エクセルにてデーターの分析などをおこなっています。
そこで１つ質問ですがオートフィルターをした後のベスト１０のデーターをコピーできないでしょうか？

Sheets("シート名").Select
Range("J5").Select
Selection.AutoFilter Field:=10, Criteria1:=">=500", Operator:=xlAnd
Range("A5:R2384").Sort Key1:=Range("Q5"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
ActiveWindow.SmallScroll ToRight:=-4
Range("B5:R15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("データーシート３").Select
Range("B5").Select
ActiveSheet.Paste
この様にやっているのですが
Criteria1:=">=500"の部分が変動する為に、表示されるデーター数がバラバラです。
たえずどんな条件でオートフィルターをかけても10件コピーできる方法はないでしょうか？

回答No.3

imogasi · ベストアンサー

オートフィルタを使わなくてもできるのではないか。
トリガをボタンクリックにして
Ｓｈｅｅｔ１（元データ）をＳｈｅｅｔ２（結果シート）へコピー
「オートフィルタを問題にしている列」でソート
「オートフィルタを問題にしている列」で抜き出し該当分を抜き出して、書き出し。その場合、Ｓｈｅｅｔ２の上行（例第２行）から順次上書きしても可のはず。
トップ１０なら、書き出しが１０を越えれば打ち切り。
Ｓｈｅｅｔ２で、抜き出して上書き済み行次行以下をクリア
ーー
会社名＝Ａで且つ計数＞５００なら、ソートキーとして、会社名＋計数でソートすればよいと思う。
元の順序を保存したければ、Ｓｈｅｅｔ２にコピーしてきたとき、各行に連番を振り、上記処理終了後、連番でソートすればよい

回答No.4

onlyrom

＞ベスト１０のデーターをコピーできないでしょうか？
＞どんな条件でオートフィルターをかけても10件コピーできる方法はないでしょうか？

（１）ベスト１０をコピーしたい
（２）必ず１０件コピーしたい

これ、おかしくないですか？

１０００
９００
８００
７００
６００
５００
４００
３００
２００
２００
２００
２００
２００
２００
１００

こんな場合だってあるのだから。
普通に考えると、（２）は勘違いだと思うが、
質問者の意図が分からないのでそこらの補足が必要。

回答No.2

kobouzu_su

こんにちは。

以下のようにすればいいのでは？

（１）”＞＝５００”でフィルター
（２）その結果に、続けて、トップテンのフィルター
（３）その結果にソートが必要なら（質問ではソートしている）ソート
（４）その結果を全て、データシート３へＣＯＰＹ

実際のブックをコピーしてそれで以下をお試しください。

フィルターをかけるシートをアクティブにしておく
Sheet3　が結果をコピーするシート
下記コードを標準モジュールにコピペして実行

'--------------------------------------------------------
Sub test()
　Range("J5").Select
　Selection.AutoFilter Field:=10, Criteria1:=">=500", Operator:=xlAnd
　Selection.AutoFilter Field:=10, Criteria1:="10", Operator:=xlTop10Items

　Range("A5").CurrentRegion.Sort _
　　　　Key1:=Range("Q5"), Order1:=xlDescending, _
　　　　Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
　　　　Orientation:=xlTopToBottom, SortMethod:=xlPinYin

　Range("A5").CurrentRegion.Copy Sheets("Sheet3").Range("A5")

End Sub
'--------------------------------------------------------

結果範囲を特定には、CurrentRegionを使うと簡単です。

それから結果ソートは、データシートへコピーした後、そこでソートしてもいいような。。。
以上です。

回答No.1

pamsd

補足要求です。

ソートはしないのでしょうか？

補足

pamsdさん
ソートは事前におこなっています。