質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

1166閲覧

一枚のシートに存在する競馬情報の特定部分を順番に貼り付ける方法を御教示願います!!!

akakage13

総合スコア89

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2017/05/14 05:06

Windows7,excel2016を使用しております。

一枚のシートに同じスタイルの競馬情報が縦に大量にあるシートの話でございます。

type race_number horse_name jockey_name trainer no_23 23 1R アビイロード 小牧 松永昌 17.3 23 1R ヒデノエーデル 酒井 梅田 109.9 23 1R ナリタアマランサス 森裕 藤沢則 42.9 23 1R タマモエルドラド 和田 大橋 7.2 23 1R ナムラハレルヤ 松山 五十嵐 37.3 省略 23 7R ナンヨーマーズ 福永 清水久 6.3 23 7R ワールドフォーラブ 武豊 音無 7.2 23 7R ピオニエ 柴田未 的場 88.6 23 7R インビジブルレイズ 浜中 吉村 1.6 23 8R トップリバティ 和田 鈴木孝 21 23 8R カノヤプレジデント 酒井 谷 38.3 23 8R オールスマイル 小牧 橋口 23.8 23 8R ビタミンエース 義 本田 37.1 23 8R テイエムハヤブサ 田中健 福島 84.2 23 8R チカリータ 武豊 小崎 3.6 23 8R キングヴァラール 荻野琢 羽月 22.9 23 8R ジーブレイズ 池添 矢作 2.8 23 8R トウケイフクキタル 太宰 湯窪 35.1 23 8R フィールブリーズ 高倉 佐藤正 26.3 23 8R クワッドアーチ 藤岡佑 中内田 27.4 23 8R サダムリスペクト 松若 中尾 13.7 23 8R タイセイパルサー 福永 大橋 15.6 23 8R ショウサングランド 浜中 牧田 11.4 23 8R キクノステラ 藤岡康 吉田 24.7 23 8R タイキレガトゥス 川須 寺島 14.5 23 9R タイマツリ 森裕 大橋 16.2 23 9R ジョーダンキング 鮫島良 藤原英 3.7 23 9R モンドシャルナ 福永 角居 6.5 23 9R ウエスタンパレード 和田 西園 6.6 23 9R ソルプレーサ 石橋脩 堀井 7.2 23 9R コウユーアンドレ 太宰 大根田 68.9 23 9R トウカイエクレール 武豊 田所 5.4 23 9R ヴィッセン 浜中 石坂 9.2 23 9R ジョースターライト 国分優 松下 27.8 23 9R ガンコ 小牧 松元 8.1 23 9R リゼコーフィー 松若 森 49.9 type race_number horse_name jockey_name trainer no_24 24 1R アビイロード 小牧 松永昌 17.3 24 1R ヒデノエーデル 酒井 梅田 109.9 24 1R ナリタアマランサス 森裕 藤沢則 42.9 24 1R タマモエルドラド 和田 大橋 7.2 24 1R ナムラハレルヤ 松山 五十嵐 37.3 24 1R エフヨンエフ 三津谷 池添兼 66.7 24 1R サンチャゴボラーレ 福永 村山 8 24 1R ミリフィカ 松若 安達 23.3 24 1R ホッコーペネロープ 川島 飯田祐 133.5 24 1R ロッタラブ 高倉 加用 22.9 省略 24 7R バルベーラ 国分優 渡辺 11 24 7R ナンヨーマーズ 福永 清水久 6.3 24 7R ワールドフォーラブ 武豊 音無 7.2 24 7R ピオニエ 柴田未 的場 88.6 24 7R インビジブルレイズ 浜中 吉村 1.6 24 8R トップリバティ 和田 鈴木孝 21 24 8R カノヤプレジデント 酒井 谷 38.3 24 8R オールスマイル 小牧 橋口 23.8 24 8R ビタミンエース 義 本田 37.1 24 8R テイエムハヤブサ 田中健 福島 84.2 24 8R チカリータ 武豊 小崎 3.6 24 8R キングヴァラール 荻野琢 羽月 22.9 24 8R ジーブレイズ 池添 矢作 2.8 24 8R トウケイフクキタル 太宰 湯窪 35.1 24 8R フィールブリーズ 高倉 佐藤正 26.3 24 8R クワッドアーチ 藤岡佑 中内田 27.4 24 8R サダムリスペクト 松若 中尾 13.7 24 8R タイセイパルサー 福永 大橋 15.6 24 8R ショウサングランド 浜中 牧田 11.4 24 8R キクノステラ 藤岡康 吉田 24.7 24 8R タイキレガトゥス 川須 寺島 14.5 24 9R タイマツリ 森裕 大橋 16.2 24 9R ジョーダンキング 鮫島良 藤原英 3.7 24 9R モンドシャルナ 福永 角居 6.5 24 9R ウエスタンパレード 和田 西園 6.6 24 9R ソルプレーサ 石橋脩 堀井 7.2 24 9R コウユーアンドレ 太宰 大根田 68.9 24 9R トウカイエクレール 武豊 田所 5.4 24 9R ヴィッセン 浜中 石坂 9.2 24 9R ジョースターライト 国分優 松下 27.8 24 9R ガンコ 小牧 松元 8.1 24 9R リゼコーフィー 松若 森 49.9

長いデータ拝見くださいまして、ありがとうございます。

左端の数字、23、24によって、2つのグループに分かれております。

no.23の見出し行が一番上に、no.24の見出し行が、中ほどにございます。

一番右端の数字が並べて見て見たい数字でございます。

ご覧のように、右端の数字以外は、全く同一の2つのデータが、縦にドッキングしている状態でございます。

これだけですと、コピペしたらということなのですが、実際は、左端の数字は1から59までございまして

約9500行になっております。

流石に、フィルタ等では限界で、マクロも試みましたが、競馬は開催ごとに頭数が異なるので、うまく出来ませんでした。

type race_number horse_name jockey_name trainer no_23 no_24 23 1R アビイロード 小牧 松永昌 17.3 65 23 1R ヒデノエーデル 酒井 梅田 109.9 109.9 23 1R ナリタアマランサス 森裕 藤沢則 42.9 42.9 23 1R タマモエルドラド 和田 大橋 7.2 7.2 23 1R ナムラハレルヤ 松山 五十嵐 37.3 37.3 23 1R エフヨンエフ 三津谷 池添兼 66.7 66.7 23 1R サンチャゴボラーレ 福永 村山 8 8 23 1R ミリフィカ 松若 安達 23.3 23.3 23 1R ホッコーペネロープ 川島 飯田祐 133.5 133.5 23 1R ロッタラブ 高倉 加用 22.9 22.9 23 1R マダムストーリー 国分優 西浦 84.9 96 23 1R プラムステッド 藤岡康 北出 35.9 99 23 1R リュウビ 義 松下 73.3 78 23 1R インハーフェイバー 武豊 須貝 2.5 66 23 1R レッドラトナ 池添 西園 4.3 4.3 23 1R チェリーボンボン 富田 木原 11.6 32 23 10R アリンナ 藤岡佑 松元 4.6 4.6 23 10R カレン 荻野極 金成 17.5 23 23 10R ショウナンマッシブ 池添 田中剛 20.4 56 23 10R メイショウソウビ 太宰 飯田祐 9.4 9.4 23 10R スビールアスール 福永 武藤 10.6 62 23 10R スーパーモリオン 和田 浅見 24.7 24.7 23 10R レジーナフォルテ 松山 佐藤吉 11.5 11.5 以下 省略

イメージ的には、上記のような形式で、縦にドッキングされたデータを、

横にno.順に順番に数字を貼っていってくれる方法(マクロ)が、知りたいことです。

毎回、typeは 1~59 でございます。

先輩方、御教示よろしくお願いいたします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

Excel関数のvlookupでできるのではないしょうか?
type列がA、horce_name列がC、一番上のデータ行が2行目なら
「=A2&C2」 で「23アビイロード」が表示されると思いますから、まずこれをtrainerの横の列(G?)にでも記述してA2&C2,A3&C3,A4&C4とインクリメントされるように末尾までコピーします。
で、「=VLOOKUP(['23'&C2],[$A$2:$H$9500],[6]」をさらにその横の列にでも配置すると「23アビイロード」が存在する行の「6列目」(F列)の値が表示されると思います。C2,C3,C4とうまくインクリメントされるようにコピーしていけば、順次値を得ることができます。
さらに、「=VLOOKUP(['24'&C2],[$A$2:$H$9500],[6]」をその横の列にでも配置すると「24アビイロード」の行の「6列目」(F列)の値が表示されると思います。後は繰り返し。
Vlookupの処理は軽くは無いですけど、9500行で参照が60くらいなら動くような気がします。

投稿2017/05/14 07:45

hirohiro

総合スコア2068

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問