Cómo insertar automáticamente texto de cada celda en una columna como comentario en otra celda

Question

Digamos que tengo 2 columnas. Llamémoslas columna1 y columna2. Las celdas de ambas columnas contienen algo de texto o están vacías. Lo que quiero hacer es insertar el texto de una celda en la columna2 como comentario en una celda en la misma fila en la columna1 y aplicarlo a todas las filas.

Por ejemplo, dada una tabla como esta:

la celda con Text1tendrá un comentario qith Text4:

etcétera:

Answer 1

Digamos que tenemos datos enA1a través deB100. Si cambia de opinión y acepta una solución basada en macros, intente esto:

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