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

質問

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

回答No.1

mu2011 · ベストアンサー

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

お礼

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

回答No.2

imogasi

＃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
少数例しかテストして無いが。

お礼

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