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

質問

質問です。
エクセルのデータをメモ帳（バラバラ）に移す方法があったら教えてください。

詳しくはエクセルのデータ（１行１セル）をメモ帳に移して保存したいです。
A１　aaa
A２　bbb
A３　ccc
A４　ddd
A５　eee
とデータがあったら
メモ帳１　○○○.txt（A１のデータ）
メモ帳２　○○○.txt（A２のデータ）
・
・
・
メモ帳５　○○○.txt（A５のデータ）
とバラバラにして保存したいです。
（メモ帳の名前は指定できなくても構いません。）

エクセルのデータが沢山あるので一つ一つコピーして貼り付けていくのが大変です。
簡単な方法がありましたらお願いします。

回答No.1

keithin · ベストアンサー

ブックをどこかに保存する
ブックを開く
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

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

ファイルメニューから終了してエクセルに戻る
シートを開く（Ａ列にデータが列記されていること）
ＡＬＴ＋Ｆ８を押し，macro1を実行する
保存したブックの隣にメモテキストが並んで保存される。

お礼

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