在工作表標籤上擊右鍵，檢視程式碼，在VBE視窗中點“插入”，模組，在模組程式碼視窗中貼上以下程式碼，然後按ALT+F8執行之，即可Sub 新增批註()For i =

1 To

2 "注：列遍歷For j = 4 To Cells(65536, i).End(3).Row "注：行遍歷If Cells(j, i) <> "" Then "檢測非空Dim aa = ""For K = 2 To [e65536].End(3).Row "遍歷E列區域If Cells(K, 5) = Cells(j, i) Then "比對資料a = a & CStr(Cells(K, 6)) "獲取對應F列的值存入變數a。On Error Resume Next "容錯 Cells(j, i).ClearComments "若有批註，先行刪除 Cells(j, i).AddComment "新增批註 Cells(j, i).Comment.Visible = False "批註隱藏 Cells(j, i).Comment.Text Text:=a "批註內容 End IfNextEnd IfNextNextEnd Sub

Excel2010新增批註： 方法一：開啟Excel2010工作表，選中需要新增批註的單元格。 切換至“審閱”功能區，在“批註”分組中單擊“新建批註”， 在批註裡新增內容儲存即可： 方法二：也可以右鍵單擊被選中的單元格，在開啟的快捷選單中選擇“插入批註”命令。