如何自動插入列中每個單元格的文字作為另一個單元格的註釋

Question

假設我有 2 列。我們稱它們為「column1」和「column2」。兩列單元格都包含一些文字或為空。我想要做的是將第 2 列中的儲存格文字作為註解插入第 1 列中同一行上的儲存格，並將其套用到所有行。

例如，給定一個像這樣的表：

單元格Text1將有評論 qith Text4：

等等：

Answer 1

假設我們有數據A1透過B100。如果您改變主意並願意接受基於巨集的解決方案，請嘗試以下操作：

Sub CommentMaker()
    Dim A As Range, aa As Range

    Set A = Range("A1:A100")
    A.ClearComments

    For Each aa In A
        aa.AddComment
        aa.Comment.Text Text:=CStr(aa.Offset(0, 1).Value)
    Next aa
End Sub