excel提取批注內容到單元格，使用excel內置命令無法完成。
excel提取批注方法一：
比如下圖所示A2：A9單元格區域都添加了批注，將這些批注內容提取到C2：C9單元格區域里面。比如A2單元格的批注內容是：沒有銷量，對應的C2單元格顯示的內容就是：沒有銷量。
excel提取批注的操作步驟如下：
按ATL+F11，打開VBE編輯器，單擊插入——模塊，復制粘貼下面的代碼到右邊的編輯窗口。然后回到excel工作表，在C2單元格輸入公式：=pizhu(A2)，下拉復制即可提取批注。
Public Function pizhu(i As Range)
pizhu = i.Cells.Comment.Text
End Function
通過編寫上面的自定義函數來提取批注，可方便的調用，就如同使用普通公式一樣使用。
使用上面的這個提取批注的不完美之處在于，如果原有單元格的批注內容編輯更新后，上面的方法不會自動更新，只有雙擊重新編輯單元格公式才會更新。如果需要自動更新可以在代碼前面添加一句：Application.Volatile True '自定義函數自動刷新。
修改后代碼如下：
Public Function pizhu(i As Range)
Application.Volatile True '自定義函數自動刷新
pizhu = i.Cells.Comment.Text
End Function
excel提取批注方法二：
再提供一段代碼，使用方法同上，代碼如下：
Function GetComment(rCell As Range)
Application.Volatile '將自定義函數標記為易失性函數
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單元格的批注內容，則在C2單元格輸入公式： =GetComment(A12)即可提取批注。
提示：此自定義函數僅提取批注內容，而不包含批注作者。由于將自定義函數標記為易失性函數，如果A2單元格中的批注被修改，按F9鍵或當任意單元格進行計算時即可得提取到修改后的批注內容。
核心關注：拓步ERP系統平臺是覆蓋了眾多的業務領域、行業應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業務領域的管理，全面涵蓋了企業關注ERP管理系統的核心領域，是眾多中小企業信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處：拓步ERP資訊網http://www.guhuozai8.cn/
本文標題：excel提取批注的兩個方法
相關文章
