JRAの結果をエクセルで表示したい

質問

4,14(1,16,7)3(2,10,11)(6,15)(8,12)(9,13)5

これは、去年の有馬記念の３コーナー

の位置取りです、JRAのホームページに

有ります。

この位置取りを簡単に説明しますと

４が先頭で走って、すぐ後ろに１４番で、

１、１６、７が３番手で３頭並走してますと

いう感じです。

そしてこの数式は、全部１個のセルに全部入ってしまいます。

自分は、１個の要素ごとに分解して、

１個のセルに１個の要素入れる事はできました、

4,14(1,16,7)3(2,10,11)(6,15)(8,12)(9,13)5

　　　　　　　　　　↓

４　, １４　　（　　１　　,　　１６　　,　　７　　）　　・・・・・・　　ここまでは出来ました

ここから問題なんですが

４　　,　１４　　　１ ３　　　　２ ・・・・・・・
　　　　　　　　　１６　　　　　　 １０
　　　　　　　　　 ７　　　　　　　 １１

という感じに　（　　　）の中の数字は並走なので、

２個なら２個目は２段目に書き込み

３個目なら３段目に書き込みたいのですが

そして、最後までの５までやりたいのですが、

出来ません。

何か良い知恵はないでしょうか？

よろしくご教示をお願いします。

回答No.2

goota33 · ベストアンサー

Excelの画面を開き、AltとF11を同時押ししてVBAエディタを起動してください。
そのあと標準モジュールを作成して以下のソースコードを貼り付け、
F5を押して実行すればご質問内容通りの動作をすると思います。

Option Explicit

Public Sub test()
Dim i As Long
Dim j As Long
Dim blnFlag As Boolean
Dim lngCountCln As Long
Dim lngLastCln As Long

i = 1
j = 2
lngCountCln = 0
lngLastCln = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To lngLastCln
If Cells(1, i).Value = "(" Then
lngCountCln = lngCountCln + 1
blnFlag = True

ElseIf Cells(1, i).Value = ")" Then
j = 2
blnFlag = False

Else
If blnFlag = True Then
Cells(j, lngCountCln).Value = Cells(1, i).Value
j = j + 1

Else
lngCountCln = lngCountCln + 1
Cells(j, lngCountCln).Value = Cells(1, i).Value

End If

End If

Next i

End Sub

お礼

早急のご回答ありがとうございました。

出来ました。

ありがとうございました

回答No.1

ts3m-ickw

1つ1つ手動作業でいいのなら‥‥
16,7のセルを範囲選択してコピーし、1の下のセルに「形式を選択して貼り付け(S)」
「行列を入れ替える(E)」のチェックを入れて「OK」
元の16,7を削除（左方向にシフト）。

自動でやらせたいならVBAマクロを使うしかないでしょう。

お礼

早急のご回答、たいへん、ありがとうございました。

できれば、自動で作業をしたいです。