So fügen Sie automatisch Text aus jeder Zelle in einer Spalte als Kommentar zu einer anderen Zelle ein

Question

Angenommen, ich habe zwei Spalten. Nennen wir sie Spalte1 und Spalte2. Beide Spaltenzellen enthalten Text oder sind leer. Ich möchte den Text einer Zelle in Spalte2 als Kommentar in eine Zelle in derselben Zeile in Spalte1 einfügen und ihn auf alle Zeilen anwenden.

Nehmen wir zum Beispiel eine Tabelle wie diese:

Die Zelle mit Text1dem Kommentar qith enthält Text4:

und so weiter:

Answer 1

Angenommen, wir haben Daten inA1durchB100. Wenn Sie Ihre Meinung ändern und eine makrobasierte Lösung akzeptieren, versuchen Sie Folgendes:

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