マクロでの区切り指定

質問

お世話になります。
TXTファイルにある下記区切りなしの文字列をエクセルで開くのですが、
セル１つに対し１文字ずつで区切りたい場合の設定はどう書いたら良いでしょうか？
よろしくお願いします。

ABCDFEGHIJKLMNOPQRSTUVW
ABCDFEGHIJKLMNOPQRSTUVWXYZ
ABCDFEGHIJKLMNOPQRS

回答No.1

keithin · ベストアンサー

次のようなベタなループが，とりあえず判りやすいと思います。

sub macro1()
　dim buf as string
　dim i as long
　dim j as long

’ファイルの在処を正しく指定すること
　open "c:\folder\file.txt" for input as #1

’ループ１
　do until eof(1)
　line input #1, buf
　i = i + 1

　’ループ２
　　for j = 1 to len(buf)
　’どこに書き出したいのか，シート名やセル番地をキチンと指定すること
　　worksheets("Sheet1").cells(i, j) = mid(buf, j, 1)
　　next j
　loop
　close #1
end sub

お礼

素早い回答ありがとうございました。
満足のいくものでした。
各所ご指摘は今後活かします。

回答No.2

mu2011

一例です。
データはＡ列としています。

Sub sample()
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
wk = Cells(i, 1).Value
For j = 1 To Len(wk)
Cells(i, j).Value = Mid(wk, j, 1)
Next
Next
Application.ScreenUpdating = True
End Sub

お礼

素早い回答ありがとうございました。
少し解り難かったですが、今後に役立てる題材にしたいと思います。