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

質問

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

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

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

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

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

回答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

お礼

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

補足

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

回答No.4

imogasi

1列分が２レコードに別れているために、区切り位置では出きず、区切り文字をカンマやTABに変えてもだめだと思います。そこでVBAの登場です。
（テストデータ）メモ帳で
aaaaa bbbb ccc
dddd eeeeeee
fff ggggg hhhhh
ii jjjjjjj
名前を付けて保存でbbd.txtと言うファイルを作りました。
（VBAコード）エクセルのVBEの標準モジュールに
Sub test01()
Open "c:\my documents\bbd.txt" For Input As #1
j = 1
While (Not EOF(1))
Line Input #1, a
b = Split(a, " ")
For i = 0 To 2
Cells(j, i + 1) = b(i)
Next i
'----
Line Input #1, a
b = Split(a, " ")
For i = 0 To 1
Cells(j, i + 4) = b(i)
Next i
j = j + 1
Wend
Close #1
End Sub
を貼りつけて、実行します。
（結果）エクセルのシートに
A列　　　B列　　　　C列　　　D列　　　　E列
aaaaa bbbb ccc dddd eeeeeee
fff ggggg hhhhh ii jjjjjjj
がセットされました。
本番の場合、どこを変えたら良いか判りますか。
ファイル名、スタート行ｊ等でしょうか。
A-CとD-Fに来るレコードは、必ず２レコードはペアであること。

お礼

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

補足

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

回答No.3

noname#13376

＃２です。
肝心のことを書き忘れていました(^_^;)。

そうやって、区切りにTabが入った文字列を、そのままコピーして、
その後、エクセル上で開始する左上のセルにカーソルを合わせてからペーストしてやると、そこにきちんとセルにわかれた状態で収まるはずです

お礼

早速の回答ありがとうございました。
データの長さの違う「区切り位置」はうまくいったみたいです。
　すみませんが、複数行のデータ（質問がよく説明できていないも知れませんが、「Ａ１」「Ｂ１」の1の部分は同じ項目のデータでテキストでは複数行に分かれています。この項目が数百あります。）を項目ごとにエクセルの1行に貼り付ける方法も教えていただければありがたいです。

回答No.2

noname#13376

テキストデータの（区切りに使っている）スペースを、いったんすべてtabに置換すると可能です。
Tabへの置換方法ですが、WZエディターというソフトの場合、検索文字「 」（空白）、置換文字「\t」と指定します。
また、メモ帳の場合、いったんTabをエディターか何かで入力して、それをコピー、そして、検索文字に「 」（空白）、置換文字にペーストをするとTabが入りますから、全部置換を指定するとできます。

回答No.1

arukamun

まず、テキストファイルのデータをメモ帳などで、スペースをカンマに置換します。
それをエクセルで、カンマ区切りで開けば良いと思いますが、いかがですか？

お礼

早速の回答ありがとうございました。
データの長さの違う「区切り位置」はうまくいったみたいです。
　すみませんが、複数行のデータ（質問がよく説明できていないも知れませんが、「Ａ１」「Ｂ１」の1の部分は同じ項目のデータでテキストでは複数行に分かれています。この項目が数百あります。）を項目ごとにエクセルの1行に貼り付ける方法も教えていただければありがたいです。