善用註解

Sub 取出註解()

While ActiveCell.Value Empty ' 判定有註解的欄所有儲存格是否有資料
On Error Resume Next ' 如果沒有註解，則往下執行,少了這一行執行會發生錯誤唷
ActiveCell.Offset(0, 1).Value = ActiveCell.Comment.Text ' 將有註解的儲存格註解資訊, 置入右側的儲存格相對位置
ActiveCell.Offset(1, 0).Select ' 下移一個儲存格
Wend
End Sub

Sub 新增註解()
my_row = Selection.Rows.Count ' 依選取範圍計算出共多少列
For i = ActiveCell.Row To my_row + ActiveCell.Row ' 執行迴圈
Cells(i, ActiveCell.Column).AddComment ' 啟用新增註解
Cells(i, ActiveCell.Column).Comment.Text Text:="OK" ' 設定註解內容
Next
End Sub
Sub 刪除註解()
While ActiveCell.Value Empty
On Error Resume Next ' 如果沒有註解，則往下執行,少了這一行執行會發生錯誤唷
ActiveCell.Comment.Delete ' 刪除註解
ActiveCell.Offset(1, 0).Select
Wend
End Sub