人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

テキストファイルで

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

というように計測データが並んだとき、簡単にエクセルに縦に並べることができないでしょうか?自分はマクロはほぼわかりません。
実際にやりたいのは、簡単に言うと例えば上の2段をX軸座標。下2段をY座標としたいのですが。
現状ではまず上の2段の数字を区切りでEnterをし、テキストファイル上で縦1列にしてからエクセルのシートに貼り付けていますが、データ量が多いので効率が大変悪いです。ちなみに数字と数字の間はおそらくタブ区切りです。

●質問者: number5512
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:334 555 エクセル テキスト データ
○ 状態 :終了
└ 回答数 : 9/9件

▽最新の回答へ

1 ● きゃづみぃ
●20ポイント

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

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

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

違う場所か違うシートで

右クリック

形式を選択して貼り付け

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

OKとします。

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

◎質問者からの返答

すいません。それですと1段目のデータ2段目のデータの列が出来てしまいます。

実際には1段から6段までのデータがあり、それを縦一列にしたいのです。


2 ● kn1967
●100ポイント

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

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

(1)ExcelではなくWordで開き、

(2)編集→置換 にて

(3)検索する文字列の欄に 区切りの空白部分を入れて、

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

(4)置換後の文字列の欄に ^p を入れ、

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

(5)すべて置換を実行します。

(6)後は、テキストファイルとして保存

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

◎質問者からの返答

だいぶ使いやすくなりましたが、欲をいいます。

まず、ワードで開いてマクロを実行することによって、先ほどの処理(置換→テキストファイルに出力)をすることは可能でしょうか?また、改行しているところが空白になるのをつめることは出来ないでしょうか?また、X,Y座標ともにの最後のデータは2つ(他は一行に6つのデータ。合計50のデータ)なのですが、そこで区切りの改行を入れることは可能でしょうか?


3 ● Yoshiya
●20ポイント

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

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

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


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

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


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


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

◎質問者からの返答

同様に出来たのですが、2つ目のコメント欄のようなことは実行不可能でしょうか?

ロガーから出力されたテキストファイルをお見せして説明できればともどかしく思います。


4 ● kn1967
●100ポイント

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

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

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

◎質問者からの返答

大変ありがとうございます。

バージョンは両方とも2000です。

設定も変更いたしましたので、又何かございましたらお願いします。


5 ● ota2244
●20ポイント

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


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


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

◎質問者からの返答

すいません。客先がフリーソフトのダウンロード禁止なんで。


1-5件表示/9件
4.前の5件|次5件6.
関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ