Excel的批注里边显示公式

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

3、在模块的代码框里面输入以下VBA程序代码，然后按下【F5】键运行程序。Sub ad蟠校盯昂dco()Dim str1, str2, mycellOn Error Resume Next '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Set myrange = mysheet1.Range("A2:F1000") '定义单元格区域A2:F1000For Each mycell In myrange '对单元格区域里面的每一单元格执行一次 If mycell <> "" Then '如果单元格不是空白，则 str1 = mycell.Formula '获取单元格里面的字符 str2 = Left(str1, 1) '在获取的公式里边截取左侧的一个字符 If str2 = "=" Then '如果获取的字符含有=（公式），则 mycell.AddComment Text:=str1 '单元格添加批注，批注的内容为单元格的公式 End If End IfNextEnd Sub