Excel的批注里边显示公式

来源：互联网 2023-02-21 16:38:25 101

如下表所示，凡是含有公式的单元格都要添加批注，批注的主要内容是单元格的公式。如果手动添加，则费时费力且容易出错，而使用VBA程序添加倒是简单快捷。

Excel的批注里边显示公式

工具/原料

打开Excel表格，按下【Alt F11】组合键打开VBA编辑器。

Excel的批注里边显示公式

在VBA编辑器上面点击【插入】、【模块】。

Excel的批注里边显示公式

2该信息未经许可获取自百度经验

在模块的代码框里面输入以下VBA程序代码，然后按下【F5】键运行程序。

Sub addco()

Dim str1, str2, mycell

On Error Resume Next '忽略运行过程中可能出现的错误

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表

Set myrange = mysheet1.Range("A2:F1000") '定义单元格区域A2:F1000

For Each mycell In myrange '对单元格区域里面的每一单元格执行一次

If mycell > "" Then '如果单元格不是空白，则

str1 = mycell.Formula '获取单元格里面的字符

str2 = Left(str1, 1) '在获取的公式里边截取左侧的一个字符

If str2 = "=" Then '如果获取的字符含有=（公式），则

mycell.AddComment Text:=str1 '单元格添加批注，批注的内容为单元格的公式

End If

End Sub

Excel的批注里边显示公式

程序代码解读：

（1）For Each …In…函数主要是对某一范围里面的元素都执行一次，执行完成后退出，即：mycell是myrange里面的一个元素，是一个变量；

（2）Left函数是从左侧开始截取字符串指定的个数，如果截取的字符里面没有“=”，说明单元格不是公式计算，也就不需要添加到批注里面。

回到Excel工作表界面，有公式的单元格将会自动添加注释和单元格的公式。

Excel的批注里边显示公式

以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！