エクセルでこのリストの加工をしたいのですが

質問

A列(ID)　　B列(エラーコード)　　C列(日付)に
A000　　01;02　　4/1
A019　　03　　4/10
A008　　02;05;07　　3/29
・
・
・

のように入っているデータがあり、
B列には「;」セミコロンで区切られたデータが1～25個入っています。
この全リストを下記のように加工したいのですが可能でしょうか？

A列　　B列　　C列に
A000　　01　　4/1
A000　　02　　4/1
A019　　03　　4/10
A008　　02　　3/29
A008　　05　　3/29
A008　　07　　3/29
・
・
・

B列のエラーコード毎(「;」毎)のレコードに加工したいのです。
(エラー数、エラー種別数ランキング等集計のため)
標準関数と多少の手作業でもマクロでもVBAでも構わないのですが、
元リストが8000レコードあるので効率よく加工する方法があれば教えてください。

回答No.2

tom04 · ベストアンサー

こんばんは！
VBAでの一例です。
元データはSheet1にあり、Sheet2に表示するとします。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻りマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, k As Long, cnt As Long, wS As Worksheet, myArray
Set wS = Worksheets("Sheet2")
With Worksheets("Sheet1")
For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
myArray = Split(.Cells(i, "B"), ";")
For k = 0 To UBound(myArray)
cnt = cnt + 1
wS.Cells(cnt, "A") = .Cells(i, "A")
wS.Cells(cnt, "B") = myArray(k)
wS.Cells(cnt, "C") = .Cells(i, "C")
Next k
Next i
End With
wS.Range("B:B").NumberFormatLocal = "00"
wS.Range("C:C").NumberFormatLocal = "m/d"
End Sub 'この行まで

※　Sheet2のB・C列の表示形式は好みで変更してください。m(_ _)m

お礼

早速回答いただいてありがとうございます！
上手くいきました、完璧です！

実はリストのレイアウトに変更があり、D列からF列までデータが増えたのですが、
ソースを修正して対応できました。
本当に助かりました。ありがとうございます。

回答No.1

bin-chan

VBAでプログラム書く

それ以外なら、25回繰り返しになるが、オートフィルタで行を絞ってコピペ
B列は置換か上書きが必要