Sub 分割()
Open Cells(1, 2).Value For Input As #1
Dim str As String
Dim strArray() As String
Dim tempStr As String
Dim strBUFF As String 'レコードを読みこむバッファ
'Split
str = "333333333333333"
strArray = Split(str, ",")
'Mid、56789となる
tempStr = Mid(str, 3, 4)
Dim nCNT As Integer 'レコード数を数える
loop_counter = Range("A5").End(xlDown).Row
nCNT = 0
Do While EOF(1) = False 'ファイル番号１が終了じゃない間まわる
Line Input #1, strBUFF 'ここでは空読みで１行読む
'MsgBox strBUFF
Cells(nCNT + 5, 5).Value = strBUFF
devide_counter = 0
keta_counter = 1
Do While devide_counter < loop_counter - 4 '3買いまわる
'MsgBox Cells(devide_counter + 5, 1)
'MsgBox Mid(strBUFF, Cells(keta_counter + 5, 1), devide_counter)
Cells(nCNT + 5, 6 + devide_counter) = Mid(strBUFF, keta_counter, Cells(devide_counter + 5, 1))
keta_counter = keta_counter + Cells(devide_counter + 5, 1)
devide_counter = devide_counter + 1
Loop
nCNT = nCNT + 1 '行数をカウントする
Loop
Close #1
Close ''現在開いているすべてのファイルを閉じます
