Excelの式データをテキストエディタにコピーするには

A1からC20までのエクセルの式をテキストエディタにコピーしたいのですが、どうすればうまく簡単にできるか教えてください。

No.1 ベストアンサー 回答者： mu2011 回答日時： 2008/07/17 18:23

次の方法は如何でしょうか。

（１）ツール→オプション→表示タブの「数式」にチェックを付ける
（２）A1:C20をコピー→テキストファイルに貼り付け
（３）ツール→オプション→表示タブの「数式」にチェックを外す

この回答へのお礼

大変シンプルな方法をありがとうございました。
参考になりました。

お礼日時：2008/08/03 15:48

No.2 回答者： imogasi 回答日時： 2008/07/17 20:37

＃1のご回答で正解とおもうが

ーーー
メモ帳にセル番地と式の一覧を書き出したいならば
XXXXはユーザー名
Sub test01()
Open "C:\Documents and Settings\XXXX\My Documents\aaa7.csv" For Output As #1
For Each cl In Range("a1:c4")
If cl.HasFormula = True Then
Write #1, cl.Address, cl.Formula
End If
Next
Close #1
End Sub
ーー
結果を
メモ帳で見ると
"$C$1","=INDEX($F$1:$H$3,MATCH(A1,$F$1:$F$3,0),MATCH(B1,$F$1:$H$1))"
"$C$2","=INDEX($F$1:$H$3,MATCH(A2,$F$1:$F$3,0),MATCH(B2,$F$1:$H$1))"
"$C$3","=INDEX($F$1:$H$3,MATCH(A3,$F$1:$F$3,0),MATCH(B3,$F$1:$H$1))"
"$C$4","=INDEX($F$1:$H$3,MATCH(A4,$F$1:$F$3,0),MATCH(B4,$F$1:$H$1))"
といった様子です。
ーー
これをデータだけあるシートに式を戻すのは
Sub test02()
Open "C:\Documents and Settings\XXXX\My Documents\aaa7.csv" For Input As #1
While Not EOF(1)
Input #1, a
Input #1, b
Range(a).Formula = b
Wend
Close #1
End Sub
少数例しかテストして無いが。

この回答へのお礼

ご回答ありがとうございました。
マクロを使った方法も参考になりました。

お礼日時：2008/08/03 15:49