• ベストアンサー

エクセルのデータをメモ帳に

質問です。 エクセルのデータをメモ帳(バラバラ)に移す方法があったら教えてください。 詳しくはエクセルのデータ(1行1セル)をメモ帳に移して保存したいです。 A1 aaa A2 bbb A3 ccc A4 ddd A5 eee とデータがあったら メモ帳1 ○○○.txt(A1のデータ) メモ帳2 ○○○.txt(A2のデータ) ・ ・ ・ メモ帳5 ○○○.txt(A5のデータ) とバラバラにして保存したいです。 (メモ帳の名前は指定できなくても構いません。) エクセルのデータが沢山あるので一つ一つコピーして貼り付けていくのが大変です。 簡単な方法がありましたらお願いします。

質問者が選んだベストアンサー

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.1

ブックをどこかに保存する ブックを開く ALT+F11を押す 現れた画面で挿入メニューから標準モジュールを挿入する 現れたシートに下記をコピー貼り付ける sub macro1()  dim r as long  for r = 1 to cells(rows.count, "A").end(xlup).row   if cells(r, "A") <> "" then    open thisworkbook.path & "\メモ" & format(r, "00000") & ".txt" for output as #1    print #1, replace(cells(r, "A").value, vblf, vbcrlf)    close #1   end if  next r end sub ファイルメニューから終了してエクセルに戻る シートを開く(A列にデータが列記されていること) ALT+F8を押し,macro1を実行する 保存したブックの隣にメモテキストが並んで保存される。

yuu-24
質問者

お礼

ありがとうございます。 本当は助かりました。 ありがとうございます。

関連するQ&A

  • エクセルで列にあるユニークなデータの個数が知りたい

    おはようございます。 エクセルでA列に以下のようなデータがあるとします。 この中で何種類のデータがあるのかを知りたいのです。 この場合は、AAA,BBB,CCC,DDD,EEEの5種類なので5という答えが欲しいのです。 ただし、A列に入るデータは非常に多岐(800種類以上)に渡ります。 また、印刷を前提としてるためソートなどはできません。 さらに1枚のシートにこのようなデータがいくつかあるので、その決まった範囲内で個数を抽出する必要があります。 なにとぞ皆様のお知恵をお貸しくださいませ。 よろしくお願いします。 AAA AAA BBB CCC AAA DDD DDD BBB DDD DDD EEE EEE

  • 【少し急いでます】エクセルについて教えてください!

    Excel2000を使っています。 A列に重複するデータがあり、B列に別データがあります(20000行強) 例)     A  B 1  001 aaa 2   001 bbb 3   001 ccc 4   002 aa 5  002 bb 6  003 aaa 7  003 bbb 8  004 ddd 9   004 eee 10  005 aa 11  006 bbb A列で重複する001は3行あり、重複しているデータは1行にまとめてB列のaaa、bbb、cccをつなげたいです。(わかりづらくてすみません) 例)     A      B 1  001  aaa・bbb・ccc 2  002   aa・bb 3  003  aaa・bbb というようにまとめたいです。 どのような方法がありますでしょうか? よろしくお願い致します。

  • テキストデータに書いてある文字(行)をシャッフルしたい秀丸エディタなど

    テキストデータにある文字をシャッフルする方法はありますか? 例えば、 aaa bbb ccc ddd eee を eee bbb aaa ddd ccc のような感じでもともと順番にあった行を変えてシャッフルみたいな感じに したいです。 秀丸エディタやさくらエディタでこのようなことは出来ますでしょうか?

  • 抽出して並べ替えたい

    初めまして 非常に悩んでいます。 エクセルシートの列に下記のようにデータが並んでいます。(文字列) AAA bbb ccc (空白) BBB ddd eee (空白) AAA bbb ccc (空白) AAA eee ggg 並べ替え後 AAA AAA BBB bbb eee ddd ccc ggg eee 尚、列上でセル位置は任意で、空白行も任意です。(1つ以上です) できれば関数でお願いします。 VBAの場合、使用したことがないので詳しくお願いします。

  • エクセルで関数を組みたい。

    エクセルでA列に以下のようなデータがあるとします。 (1)この中で何種類のデータがあるのかを出し、   この場合は、AAA,BBB,CCC,DDD,EEEの5種類なので5と出し、 (2) その5種類の中で、1回だけのものが●件、2回のものが●件  (・・・大体15回くらいが多い回数になります。) という数字を出したいのです。 印刷を前提としてるためソートなどはできません。 (1)については、何とか解決いたしました。下記を使用します。 =COUNT(INDEX(1/(MATCH(A1:A1000,A1:A1000,)=ROW(A1:A1000)),)) (2)が全く分かりません。 皆様のお知恵をお貸しくださいませ。 宜しくお願い致します。 AAA AAA BBB CCC AAA DDD DDD BBB DDD DDD EEE EEE

  • EXCELで行の先頭データが同じ行の削除方法について

    EXCELで次のようなことをしたいのですがどうしたら簡単にできるでしょうか?  AAA   AAA  AAA  AAA  AAA  BBB  BBB  BBB  CCC  DDD  DDD  DDD  DDD 上ようのなデータで重複している部分を削除し、  AAA  BBB  CCC  DDD としたいのですが。 今は一行々々で確認しながら削除してます。3000行程あり困ってます。 どうしたら簡単にできるでしょうか?  

  • EXCEL VBA 行列操作

    どなたか教えてください。 下記の様にA1からH5までの範囲に値がある行とない行があります。 空白セルを無視しA10に行列を操作し(行列入れ替え?)、さらに上詰め でコピーしたいのです(上にある行から列順に)。 よろしくお願いします。 例です  A   B   C   D   E   F  G   H 1 2                   aaa bbb 3 ccc ddd eee fff ggg 4 5 hhh ~ 10 aaa 11 bbb 12 ccc 13 ddd 14 eee 15 fff 16 ggg 17 hhh

  • CSVに外部テキストファイルを列として追加する方法

    こんにちは。 CSVファイル(base.csv)の先頭列に、別のテキストファイル(add.txt)の中身を新規の列として挿入したいと考えているのですが、よい方法がわかりません。。。 どうのような方法を使えば対応することができるでしょうか? どうぞよろしくお願いいたします。 ■CSVファイル(master.csv) title,developer_name,seller_name,primary_genre_name,application_url AAA,BBB,CCC,DDD,EEE AAA,BBB,CCC,DDD,EEE AAA,BBB,CCC,DDD,EEE AAA,BBB,CCC,DDD,EEE ■テキストファイル(add.txt) id 000 111 222 333 ↓ ■目標としたファイル(master.csv) id,title,developer_name,seller_name,primary_genre_name,application_url 000,AAA,BBB,CCC,DDD,EEE 111,AAA,BBB,CCC,DDD,EEE 222,AAA,BBB,CCC,DDD,EEE 333,AAA,BBB,CCC,DDD,EEE

  • EXCELで複数行の検索

    初心者です。 Aファイルのaaa、bbbなどをキーに Bファイルを検索してできるだけ簡単にマクロ等使わずに 下記のような抽出をする方法があれば教えてください。 よろしくお願いします。 Aファイル aaa bbb ccc Bファイル(例えば「ddd」と「あ」は別セルです) ddd あ eee い aaa う fff え bbb お ggg か ccc き 結果 Aファイル aaa う bbb お ccc き

  • データの列を15行毎に平均する

    エクセルで質問です 下記のように集計したいのですが、よいアドバイスをいただけないでしょうか 又はVBAでないと無理でしょうか あまり詳しくありませんのでよろしくお願いします。 <データ>       <集計>    1 aaa bbb ccc    1~15行の平均 2 bbb ccc ddd    16~30行の平均 3 ccc ddd eee     ・ 4 ・  ・  ・      ・ 5 ・  ・  ・      ・ ↓ ・  ・  ・      ・ 15 ・  ・  ・      ・ 16 ・  ・  ・      ・ ↓ ・  ・  ・      ・ 30 ・  ・  ・      ・

専門家に質問してみよう