如何自动将列中每个单元格的文本插入为另一个单元格的注释

Question

假设我有 2 列。我们将它们称为列 1 和列 2。两列单元格都包含一些文本或为空。我想要做的是将列 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