|
データ保存用ブックを作成する際に、複数シート内の特定の数式を値に置換したいと思っています。
With ActiveSheet.UsedRange
Set C = .Find("VLOOKUP", , xlFormulas, xlPart)
If C Is Nothing Then Exit Sub
Do
C.Value = C.Value
Set C = .FindNext(C)
Loop Until C Is Nothing
Set D = .Find("ISERROR", , xlFormulas, xlPart)
If D Is Nothing Then Exit Sub
Do
D.Value = D.Value
Set D = .FindNext(D)
Loop Until D Is Nothing
現在は上記のように外したい数式をひとつひとつ指定、各シート毎にマクロ実行しています。(シート数が非常に多いのでかなり手間がかかっています・・・)
すべてのシートについて「SUM関数を除いたすべての数式」というような記述方法もしくは上記記述を簡素にする方法があれば、どなたかご指南ください。よろしくお願いします。
|
|