ExcelのROUND関数を一括解除したい。

Question

ExcelのROUND関数を一括解除（削除）したいのですが、
やり方を教えてください。

具体的には、
以下のような計算式
=ROUND('収入データ'!A176/'収入データ'!A181,3)
を
='収入データ'!A176/'収入データ'!A181
にしたいのです。

sheet内の表中あちこちに、
=ROUND('収入データ'!A26/'収入データ'!A31,3)
=ROUND('収入データ'!A56/'収入データ'!A61,3)
=ROUND('収入データ'!A86/'収入データ'!A91,3)
などのROUND関数が設定されています。

置換で、*や?を使って試してみましたが、
「入力した数式にはエラーがあります。」という
エラーメッセージが出て、うまく実行できません。
そもそも置換機能では一括解除（削除）できないのでしょうか。

以上、よろしくお願いします。

imogasi · Accepted Answer

VBAですが、標準モジュールに下記を貼り付けて、実行する。
Sub test01()
Dim cl As Range
For Each cl In Selection
If cl.HasFormula Then
f1 = cl.Formula
p = InStr(f1, "ROUND")
    If p <> 0 Then
        s1 = Split(f1, ",")
        s2 = Split(s1(0), "(")
        f2 = "=" & s2(1)
        cl.Formula = f2
     End If
End If
Next
End Sub
ROUNDという式のありそうな（大き目の）、セル範囲全体を範囲指定して、実行してください。ROUNDDOWN、ROUNDUPも省かれます。
上記VBAは式のあるセルを対象にし、ROUNDがあるか。あれば、初め式をカンマでわけ、その１番目をとり、再度その１番目を対象に、
それを（でわけその２番目をとり、＝と結合したものを式として設定してます。
他の関数はそのままのはずです。
質問者はVBAがはじめてらしいのですが、上げてみます。

noname#176215 · Answer

何回かに分ければできます。

検索する文字列：=ROUND(
置換後の文字列：★
[すべて置換]

検索する文字列：,3)
置換後の文字列：
[すべて置換]

検索する文字列：★
置換後の文字列：=
[すべて置換]

以上です。

noname#123709 · Answer

こんな方法でもよいのでしょうか？
Sub test()
Dim i As Range
Dim j As Long
Dim k As String
For Each i In ActiveSheet.UsedRange
If i.FormulaLocal Like "=ROUND*" Then
j = Len(i.FormulaLocal)
k = Mid(i.FormulaLocal, 8, j)
i.Value = "=" & Left(k, j - 10)
End If
Next
End Sub

Ryokucha · Answer

数式のまま変換は出来ないので
１．=ROUND( を　aaa= にする
　　これで文字列扱いになります　aaaは何でも構いません
２．,3)を置換で消します。
３．aaa= を　＝に変換する。

これでどうでしょう？

ExcelのROUND関数を一括解除したい。

VBAですが、標準モジュールに下記を貼り付けて、実行する。

何回かに分ければできます。

こんな方法でもよいのでしょうか？

この回答への補足

数式のまま変換は出来ないので

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング