自分の無知ゆえにややこしいので、500ポイント用意しております。

http://arena.nikkeibp.co.jp/qa/20060208/115307/

そのままテキストファイルのデータをコピーして エクセルに貼り付けます。

次に、その貼り付けたセルを選択しコピーし

違う場所か違うシートで

右クリック

形式を選択して貼り付け

行列を入れ替える にチェックし

OKとします。

すると横のが縦になりますが、これでどうでしょうか？

123 234 456 789 098 234 555 765

234 567 891 234 123 334

567 891 234 123 234 103 456 871

456 789 123 567 222 356

を

123

234

～

123

334

567

891

～

222

356

と一列に並ベたいということであれば、

（１）ExcelではなくWordで開き、

（２）編集→置換 にて

（３）検索する文字列の欄に　区切りの空白部分を入れて、

※区切りの空白部分がタブか空白か判らないのであれば、空白部分を選択してコピーしたものを検索する文字列欄に貼り付けても良いです。

（４）置換後の文字列の欄に　^p を入れ、

※^p は改行を意味します。半角で入れてください。

（５）すべて置換を実行します。

（６）後は、テキストファイルとして保存

※コピーしてExcelに貼り付けてもＯＫ

エディタを使っていますか？

エディタの置換機能を使って、\t（タブ）を\n（改行）に置換すれば、簡単に１行になります。

私が使っているのは「Tera Pad」です。

• まず、「Tera Pad」をダウンロードして、解凍して下さい。

http://www.vector.co.jp/soft/dl/win95/writing/se104390.html

「ファイルのダウンロード」で「開く」ボタンを押せば自動的に解凍します。

• 「Tera Pad」を実行して、該当するテキストファイルを読み込ませて下さい。　 メニュー（ファイル→開く）

• メニューの（検索→置換）を選んで、置換メニューにします。

• 検索する文字列は「\t」　置換後の文字列は「\n」にします。

• オプションの「￥n=改行 ￥t=タブ ￥￥=￥(E)」にチェックを入れます。

• 「全て置換」を押して下さい。　「置き換えますか」というウインドウが表示されますので、「すべて」を押して下さい。

• これで数字が縦一列に並んだと思います。

後は、別名でセーブした上でエクセルから読み込ませて下さい。

お使いのエディタにも「置換」機能があると思いますので、エディタのヘルプを参考にして同様の処理をしてみて下さい。

Wordにはマクロ記録というものがありますので、マクロ記録を開始してから一連の動作を行うだけでマクロが完成します。

（以下、Word2000のマクロ記録で作成したものです。手直ししなければならない部分もありますので参考だけとして、実際にご利用になる分に関しましてはコピペではなくてマクロ記録で作ってください。）

■置換

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

　　.Text = "　"　　

　　.Replacement.Text = "^p"

　　.Forward = True

　　.Wrap = wdFindContinue

　　.Format = False

　　.MatchCase = False

　　.MatchWholeWord = False

　　.MatchByte = False

　　.MatchAllWordForms = False

　　.MatchSoundsLike = False

　　.MatchWildcards = False

　　.MatchFuzzy = True

End With

Selection.Find.Execute Replace:=wdReplaceAll

空白ではなくタブの場合は

.Text = vbTab

になります。

■保存

ChangeFileOpenDirectory "C:\"

ActiveDocument.SaveAs FileName:="123.txt", FileFormat:=wdFormatText, _

LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _

:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _

False

保存先フォルダ（例では "C:\"）はフルパスで指定し最後が\で終わるようにします。

＞空白になるのをつめる

＞区切りの改行

Wordでもできますが、そこまでするのであればExcelVBAで『1行読み込んでは分解してセルに書き出し』というマクロを造ったほうが早そうです。

Word／Excelのバージョンを書き込めばコピペで使えるようなマクロを誰かが作ってくれるかもしれませんので、書いておくことをお勧めします。

一人２回までなので、ここまでとなりますが、コメント欄を使えるような設定に変えていただければ、判る範囲では追従していきます。

（質問者さんにはページの下のほうに設定を変えるところが見えているはずですから確認してみてください）

単純にテキストファイルの置換ツールを使用されてはいかがでしょうか？

http://www.vector.co.jp/soft/win95/util/se359701.html

これらのツールでTabを改行コードに置き換えることで同様のことが出来ると思います。

エクセルのマクロで やってみました。

Sheet1にそのまま 貼り付けて

Ctrl+q とすれば Sheet2に作成されます。

マクロの使い方は Ｗｏｒｄ等と同じです。

Sub Macro1()

'

' Macro1 Macro

'

' Keyboard Shortcut: Ctrl+q

'

' aが 元 bが作成先になります。

a = "Sheet1"

b = "Sheet2"

e = 1

For c = 1 To 65536

If Cells(c, 1) = "" Then Exit For

For d = 1 To 255

If Cells(c, d) = "" Then Exit For

Sheets(b).Cells(e, 1) = Sheets(a).Cells(c, d)

e = e + 1

Next d

Next c

End Sub

Excel2000での例です。

6/のtakntさんのほうはテキストファイルをSheet1に開いた状態から始まるものですが、こちらはテキストファイルを読みこんでセルに書き出す方法を取っています。

こちらをさらに改良してファイルオブジェクトを扱えるようにすればファイル選択ダイアログをだしたりするなんて事も可能です。

（ダイアログ等に関しては高度になりますので、今回のところは下記コードの意味をキッチリと理解できるようにがんばってください。）

Sub Macro1()
    Dim S_Read As String
    Dim S_FName As String
    Dim V_DataArray As Variant
    Dim V_Data As Variant
    
    S_FName = "a.txt": 'ファイルはxlsファイルと同じフォルダにあるという前提
    
    Cells.Select: 'アクティブなシートの全体を選択
    Range("A1").Activate: 'セルA1をアクティブにする
    Selection.ClearContents: '全クリア
    
    Open ActiveWorkbook.Path & "\" & S_FName For Input As #1: 'ファイルを開く
      Do Until EOF(1): 'ファイルの最後までループ

        Line Input #1, S_Read: '１行分読み取り
        V_DataArray = Split(S_Read, " "): '区切り文字で分割（タブの場合は" "ではなくvbTab）

        For Each V_Data In V_DataArray: '分割されて出来たデータ分のループ
          ActiveCell.Value = V_Data: 'セルへの書き込み
          ActiveCell.Offset(1, 0).Select: '１つ下のセルへの移動
        Next V_Data: 'Forに戻る

        If UBound(V_DataArray) = 2 Then
          ActiveCell.Offset(1, 0).Select:  'データが１行に二個しかなかった場合はもう一つしたのセルへ移動
        End If

      Loop: 'Doに戻る
    Close #1: 'ファイルを閉じる
End Sub

色々とやり方がでていますが、関数マニアとして、関数一本でやっつける方法を一つ。

コメント欄に記載されている、

データが6列×9行の50データをひとくくりの一列にするという処理をするとして、

• Excelの新規ファイルを作成し、便宜上「1」という名前のシートを作成します。
• ロガーのテキストファイルを開いて、「1」シートに貼り付けます。
• シートを一枚新規に追加します。これをSheet1とします。
• Sheet1のA1に下記の数式をコピペしてエンターしてください。

=INDEX('1'!$A:$F,1+(ROW()-ROW(A$1))*9+(ROUNDDOWN((COLUMN()-1)/6,0)),COLUMN()-(ROUNDDOWN((COLUMN()-1)/6,0)*6))

• Sheet1のA1をコピーして、A1:AX2までを選択して貼り付けます。

これでSheet1に、二列に自動表示されると思うのですが。

尚、

データを貼り付ける「1」シート名は↑の式の「'1'」の1の部分を該当名に変更すれば、

自由に変更できます。

また、二系列以上(2行以上)に変換するときは、そのまま数式をフィルコピーして使えます。

以上ご参考まで。