■
一度CSVファイルにしているなら VBScript で処理してみるのも手ですネ。
'CSV ２次元→１次元変換
Dim fs
Dim rf
Dim wf
Dim s1
Dim cn
Dim c1
Dim rn
Dim ip
Set fs = CreateObject("Scripting.FileSystemObject")
Set rf = fs.OpenTextFile("Book1.csv", 1)
Set wf = fs.CreateTextFile("Book2.csv", 2)
s1 = rf.ReadLine
cn = Split(s1, ",", -1, 1)
While Not rf.AtEndOfStream
s1 = rf.ReadLine
c1 = Split(s1, ",", -1, 1)
ip = 0
For Each rn In c1
If ip Then
wf.WriteLine(c1(0) & "," & cn(ip) & "," & rn)
End If
ip = ip + 1
Next
Wend
rf.Close()
wf.Close()
