Jak automatycznie wstawiać tekst każdej komórki w kolumnie jako komentarz do innej komórki

Powiedz, że mam 2 kolumny. Nazwijmy je kolumna1 i kolumna2. Komórki obu kolumn zawierają tekst lub są puste. Chcę wstawić tekst komórki w kolumnie 2 jako komentarz do komórki w tym samym wierszu w kolumnie 1 i zastosować go do wszystkich wierszy.

Na przykład, biorąc pod uwagę taką tabelę:

komórka z Text1będzie miała komentarz qith Text4:

i tak dalej:

microsoft-excel Eugene S.
źródło

Głosuj za „zbyt szerokim”? Jak to jest zbyt szerokie? To bardzo konkretne pytanie.

Eugene S

Czego już próbowałeś?

MJH,

Próbowałem go znaleźć w Google, ale znalazłem tylko odpowiedzi dotyczące VBA, których chciałbym uniknąć.

Eugene S

Myślę, że jest mało prawdopodobne, aby znaleźć rozwiązanie, które nie wymaga VBA.

MJH,

Czy istnieje powód, dla którego chcesz uniknąć VBA? Jestem 99,32% pozytywny, że bez tego nie będziesz w stanie tego osiągnąć.

BruceWayne,

Odpowiedzi:

Powiedzmy, że mamy dane od A1 do B100 . Jeśli zmienisz zdanie i przyjmiesz rozwiązanie oparte na makrach, spróbuj tego:

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

Uczeń Gary'ego
źródło