![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
エクセルで競馬予想ソフトを作成中ですが、VBA初心者で勉強中につき
誰か教えてください。
*CSVから読み込んだデータを日付順に並べ替えるマクロ*
【例】《表》
馬番 馬名 開催日 ・・・
1 愛 2005/12/1 ・・・
1 愛 2006/1/27 ・・・
1 愛 2006/2/25 ・・・
1 愛 2006/3/29 ・・・
1 愛 2006/4/22 ・・・
1 愛 2006/4/29 ・・・
2 色 2006/4/13 ・・・
3 牛 2006/4/13 ・・・
・
・
・
という表から別のワークシートに古い順から5つ分を抽出したいのです
『データが5つ以上ある場合もあれば、4つ以下の場合もあります。』最高18頭分ですがレースによって出走頭数も違うのでどういうふうに
マクロを組めばよいですか?
教えてください。
『この質問は競馬の知識がなくてもかまいません。』
No.2ベストアンサー
- 回答日時:
すみません。
No.1間違ってましたorzSub sample2()
Dim sh As Worksheet
Set sh = ActiveSheet
sh.AutoFilterMode = False
With sh.Range("a1").CurrentRegion
.Sort Key1:=Range("A2"), Order1:=xlAscending _
, Key2:=Range("C2"), Order2:=xlAscending _
, Header:=xlYes, OrderCustom:=1, Orientation:=xlTopToBottom
sh.Range("iv2:iv" & .Rows.Count).Formula = "=IF(A1=A2,IV1+1,1)" '■
sh.Columns("IV").AutoFilter Field:=1, Criteria1:="<6" '■
.Copy
End With
Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
sh.Columns("IV").Delete
Set sh = Nothing
End Sub
返事が遅くなりスミマセン。
この方法も参考にさせていただきます。
今、違う方法で作っている最中なので、
行き詰った時再度別の質問をすると思いますので
そのときはよろしくお願いします。
No.1
- 回答日時:
こんにちは。
『馬番ごと』に開催日が古い順に最大5データを抽出。でいいのですか?
~~~~~~~~~~~~~~
A1セルからデータが途切れなくある状態で、IV列を作業用として使い、
新規シートを追加して抽出コピーします。
関数とオートフィルターを使います。
[マクロの記録]をしてみて、比べてみると良いかもしれません^ ^
Sub sample()
Dim sh As Worksheet
Set sh = ActiveSheet
sh.AutoFilterMode = False
With sh.Range("a1").CurrentRegion
.Sort Key1:=Range("A2"), Order1:=xlAscending _
, Key2:=Range("C2"), Order2:=xlAscending _
, Header:=xlYes, OrderCustom:=1, Orientation:=xlTopToBottom
sh.Range("iv2:iv" & .Rows.Count).Formula = "=IF(A1<>A2,1,IF(IV1=5,0,IV1+1))"
sh.Columns("IV").AutoFilter Field:=1, Criteria1:="<>0"
.Copy
End With
Sheets.Add
ActiveSheet.Paste
Application.CutCopyMode = False
sh.Columns("IV").Delete
Set sh = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelマクロで空白セルを詰めて...
-
Excel VBA インデックスの境...
-
エクセルVBAで 2種のリストを...
-
Excel VBAでシート内全体に非表...
-
エクセル2007で、マクロで、結...
-
VBA:同じ文字列データの比...
-
vbaでコントロールブレイク
-
歯抜けの時間を埋めて行の挿入
-
excelの差込印刷で可視セルだけ...
-
VBA別シートの最終行の下行へ貼...
-
Excel で行を指定回数だけコピ...
-
ドメイン名が、ak.sky.tkk.ne.j...
-
代替機にキズ
-
外付けHDDをフローリングに落と...
-
FOMAカード(UIM)異常
-
画面が真っ暗に・・・
-
ドコモの電話帳バックアップに...
-
PC修理に出すのですが、個人情...
-
添付ファイルが開けない
-
メールのコピーの仕方が分かり...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で行を指定回数だけコピ...
-
excelの差込印刷で可視セルだけ...
-
Excel VBA インデックスの境...
-
エクセル:VBAで月変わりで、自...
-
VBA別シートの最終行の下行へ貼...
-
VBA:同じ文字列データの比...
-
エクセルVBAで 2種のリストを...
-
エクセルVBA 別シートの複数の...
-
歯抜けの時間を埋めて行の挿入
-
エクセルVBAで SendKeys "{TAB}"
-
エクセル2007で、マクロで、結...
-
VBA 貼付先範囲(行)がいっぱ...
-
vbaでコントロールブレイク
-
エクセルVBAでの日付順のデ...
-
《エクセル》リストから同じ分...
-
Excelマクロ データが上書きさ...
-
Excel VBAでシート内全体に非表...
-
EXCELマクロで全シート対...
-
VBAの処理が途中で止まる
-
エクセルVBAで実行時エラー...
おすすめ情報