在Excel表格中，如果需要對(duì)含有公式的單元格進(jìn)行標(biāo)注，可以使用批注功能。批注可以包含單元格的公式等信息。手動(dòng)添加批注費(fèi)時(shí)費(fèi)力且容易出錯(cuò)，但是通過(guò)使用VBA程序可以簡(jiǎn)單快捷地實(shí)現(xiàn)。 使用VBA程序添

在Excel表格中，如果需要對(duì)含有公式的單元格進(jìn)行標(biāo)注，可以使用批注功能。批注可以包含單元格的公式等信息。手動(dòng)添加批注費(fèi)時(shí)費(fèi)力且容易出錯(cuò)，但是通過(guò)使用VBA程序可以簡(jiǎn)單快捷地實(shí)現(xiàn)。

使用VBA程序添加批注

以下是使用VBA程序來(lái)為含有公式的單元格添加批注的步驟：

1. 打開Excel表格，并按下【Alt F11】組合鍵打開VBA編輯器。
2. 在VBA編輯器上方點(diǎn)擊【插入】，然后選擇【模塊】。
3. 在模塊的代碼框中輸入以下VBA程序代碼，并按下【F5】鍵運(yùn)行程序。

Sub addco()
    Dim str1, str2, mycell
    On Error Resume Next  '忽略運(yùn)行過(guò)程中可能出現(xiàn)的錯(cuò)誤
    Set mysheet1  ("Sheet1")  '定義工作表
    Set myrange  mysheet1.Range("A2:F1000")  '定義單元格區(qū)域A2:F1000
    For Each mycell In myrange  '對(duì)單元格區(qū)域里面的每一單元格執(zhí)行一次
        If mycell <> "" Then  '如果單元格不是空白，則
            str1    '獲取單元格里面的字符
            str2  Left(str1, 1)  '在獲取的公式里邊截取左側(cè)的一個(gè)字符
            If str2  "" Then  '如果獲取的字符含有（公式），則
                 Text:str1  '單元格添加批注，批注的內(nèi)容為單元格的公式
            End If
        End If
    Next
End Sub

以上程序代碼解讀：

1. For Each ... In...函數(shù)用于對(duì)某一范圍內(nèi)的元素進(jìn)行循環(huán)操作。在此程序中，mycell是myrange范圍內(nèi)的一個(gè)元素，也就是一個(gè)變量。

2. Left函數(shù)用于從字符串的左側(cè)開始截取指定數(shù)量的字符。如果截取的字符中不包含""，則說(shuō)明單元格不是公式計(jì)算，無(wú)需添加批注。

查看添加的批注

回到Excel工作表界面后，含有公式的單元格旁邊會(huì)自動(dòng)添加批注，并顯示單元格的公式。