Como inserir automaticamente o texto de cada célula da coluna como comentário em outra célula

Question

Digamos que eu tenha 2 colunas. Vamos chamá-los de coluna1 e coluna2. As células de ambas as colunas contêm algum texto ou estão vazias. O que eu quero fazer é inserir o texto de uma célula na coluna2 como comentário em uma célula na mesma linha da coluna1 e aplicá-lo a todas as linhas.

Por exemplo, dada uma tabela como esta:

a célula com Text1terá o comentário qith Text4:

e assim por diante:

Answer 1

Digamos que temos dados emA1atravésB100. Se você mudar de ideia e aceitar uma solução baseada em macro, tente isto:

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