Como inserir automaticamente o texto de cada célula na coluna como um comentário para outra célula

Question

Digamos que eu tenha duas colunas. Vamos chamá-los de column1 e column2. Ambas as células das 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 para uma célula na mesma linha na coluna1 e aplicá-la a todas as linhas.

Por exemplo, dada uma tabela como esta:

acélulacomText1teráumcomentárioqithText4:

eassimpordiante:

    

Answer 1

Digamos que temos dados em A1 por meio de B100 . Se você mudar de ideia e aceitar uma solução baseada em macro, tente o seguinte:

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