excel提取批注內(nèi)容到單元格，使用excel內(nèi)置命令無法完成。

excel提取批注方法一：

　　比如下圖所示A2：A9單元格區(qū)域都添加了批注，將這些批注內(nèi)容提取到C2：C9單元格區(qū)域里面。比如A2單元格的批注內(nèi)容是：沒有銷量，對(duì)應(yīng)的C2單元格顯示的內(nèi)容就是：沒有銷量。

　　excel提取批注的操作步驟如下：

　　按ATL+F11，打開VBE編輯器，單擊插入——模塊，復(fù)制粘貼下面的代碼到右邊的編輯窗口。然后回到excel工作表，在C2單元格輸入公式：=pizhu(A2)，下拉復(fù)制即可提取批注。

Public Function pizhu(i As Range)
  pizhu = i.Cells.Comment.Text
End Function

　　通過編寫上面的自定義函數(shù)來提取批注，可方便的調(diào)用，就如同使用普通公式一樣使用。

　　使用上面的這個(gè)提取批注的不完美之處在于，如果原有單元格的批注內(nèi)容編輯更新后，上面的方法不會(huì)自動(dòng)更新，只有雙擊重新編輯單元格公式才會(huì)更新。如果需要自動(dòng)更新可以在代碼前面添加一句：Application.Volatile True   '自定義函數(shù)自動(dòng)刷新。

　　修改后代碼如下：

Public Function pizhu(i As Range)
   Application.Volatile True   '自定義函數(shù)自動(dòng)刷新
  pizhu = i.Cells.Comment.Text
End Function

excel提取批注方法二：

　　再提供一段代碼，使用方法同上，代碼如下：

    Function GetComment(rCell As Range)
    Application.Volatile   '將自定義函數(shù)標(biāo)記為易失性函數(shù)
    Dim Cmt As String
    On Error Resume Next
    Cmt = rCell.Comment.Text
    GetComment = Right(Cmt, Len(Cmt) - InStr(1, Cmt, ":", vbTextCompare))
    On Error GoTo 0
End Function

　　返回到Excel工作表，比如要提取A2單元格的批注內(nèi)容，則在C2單元格輸入公式： =GetComment(A12)即可提取批注。

　　提示：此自定義函數(shù)僅提取批注內(nèi)容，而不包含批注作者。由于將自定義函數(shù)標(biāo)記為易失性函數(shù)，如果A2單元格中的批注被修改，按F9鍵或當(dāng)任意單元格進(jìn)行計(jì)算時(shí)即可得提取到修改后的批注內(nèi)容。