EXCEL批量替换公式数据变成真两位小数

向兴东

于 2021-08-27 16:53:06 发布

阅读量868

点赞数

分类专栏：办公日常文章标签：办公软件

本文链接：https://blog.csdn.net/weixin_40591361/article/details/119956305

版权

办公日常专栏收录该内容

5 篇文章

订阅专栏

当需要将Excel表格中所有含有公式的单元格统一设置为保留两位小数时，遇到批量操作的挑战。常规方法如拖拉公式和替换功能无法满足需求。为了解决这个问题，采用VBA编写宏代码进行处理。通过遍历选择的单元格，检查是否有公式，并用ROUND函数替换原有公式，确保数据一致性。在编写过程中要注意公式的正确性，避免出现错误导致计算不准确。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

原因

公司制作了一个表格，属于统计类表格，基本都是数值型的，通过单元格格式设置为两位小数后，发给财务，发现分数据和总数据核对不一致，至此产生了真两位小数的需求。
由于每个单元格的计算公式不一样，无法使用通用的拖拉来解决批量公式设置问题;
使用excel的替换功能也没用通配符，因此无法批量替换；

方案

不得已，搬出VBA，网上查询一番，最后写下如下代码

Sub 全部加上ROUND两位小数()
    Dim cel As Range
    For Each cel In Selection
     If cel.HasFormula Then
        Dim str As String
        str = Replace(cel.Formula, "=", "")
        If Left(str, 5) <> "ROUND" Then
            cel.Formula = "=ROUND(" + str + ",2)"
        End If
     End If
    Next cel
End Sub