テキストファイルのデータをエクセルへコピーのやり方

質問

よろしくお願いします。
エクセル２０００を使っています。

テキストのデータで
Ａ１／Ｂ１／Ｃ１　　　　/はスペースです。
Ｄ１／Ｅ１／Ｆ１　　　　データの長さは全部違います。
Ａ２／Ｂ２／Ｃ２　　　　
Ｄ２／Ｅ２／Ｆ２
Ａ３／Ｂ３／Ｃ３　　　　
Ｄ３／Ｅ３／Ｆ３　　
　　　・
　　　・（続く）
といったものがあります。これをエクセルで

　　　Ａ列　Ｂ列　Ｃ列　Ｄ列　Ｅ列
１行　Ａ１　Ｂ１　Ｃ１　Ｄ１　Ｅ１
２行　Ａ２　Ｂ２　Ｃ２　Ｄ２　Ｅ２　　・・・
３行　Ａ３　Ｂ３　Ｃ３　Ｄ３　Ｅ３　　（続く）
　　　　　　　　　・
　　　　　　　　　・（続く）

という感じで別々のセルにいれて貼り付けしたいのです。

テキストデータを別々のセルに貼り付けする方法は
過去ログで「区切り位置」というのをつかえばいいというのはわかりましたが、この場合の複数行にわたるテキストデータをエクセルの１行に貼り付けする方法がわかりません。また、データの長さが違うために「区切り位置」もうまくいきません。
良い解決法をお願いします。

回答No.5

ja7awu · ベストアンサー

データ並びが一定でなくても構わないようにしています。
テキスト何行を１行分にして読込むか、設定出来ます。(今は２行に設定)

マクロを実行するとファイル名指定のダイアログがでますので、テキストファイルを
指定すると、アクティブシートにデータが読み込まれます。

宜しかったら詳しい手順を書きますのでテストしてみてください。

１．Alt + F11 で VBE(Visual Basic Editor)を開きます。
２．VBE のメニューから[挿入] -->[標準モジュール] を指定します。
３．モジュールウィンドウに下記コードをコピーして貼り付けます。
４．Alt + Q （または、右上隅の×）でウィンドウを閉じ、シートに戻ります。
５．メニューから[ツール]-->[マクロ]-->[セキュリティ]で「セキュリティレベル」を
　「中」にして[OK]します。
６．実行するときは、Alt ＋ F8 (メニューから[ツール]-->[マクロ]-->[マクロ])で
　「テキスト複数行を1行で読込」を指定し、[実行]ボタンを押します。

Sub テキスト複数行を1行で読込()
Dim FNum As Integer, R As Integer
Dim Col As Integer
Const RwSet As Integer = 2 '<-- 読取り行数単位指定
Dim N As Integer, Rw As Long
Dim FileName, InData, Ary
FileName = Application _
.GetOpenFilename("テキスト ファイル(*.csv;*.txt),*.csv;*.txt")
If FileName = False Then Exit Sub
FNum = FreeFile
Open FileName For Input As FNum
Col = 1: Rw = 1
Do Until EOF(FNum)
　　For R = 1 To RwSet
　　　　If EOF(FNum) Then Exit Do
　　　　Line Input #FNum, InData
　　　　Ary = Split(Trim(InData), " ")
　　　　For N = 0 To UBound(Ary)
　　　　　　Cells(Rw, Col).Value = Ary(N)
　　　　　　Col = Col + 1
　　　　Next N
　　Next R
　　Rw = Rw + 1
　　Col = 1
Loop
Close #FNum
End Sub

お礼

回答ありがとうございます。
早速、指示されたとおりにやってみるとできました。
しかし、本番のケースはテキストファイルが職場にあるので、後日に結果を報告させてもらいます。本番の場合はもう少し複雑なデータですが・・・
とりいそぎお礼を申し上げます。

補足

ＶＢＡはよくわからないのですが、
なんとかやりたいことができました！
ありがとうございました。