在模块的代码框里面输入以下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 If

Next

End Sub