열의 각 셀 텍스트를 다른 셀에 대한 주석으로 자동 삽입하는 방법

Question

2개의 열이 있다고 가정해 보겠습니다. 이를 컬럼1과 컬럼2라고 부르겠습니다. 두 열 셀 모두 일부 텍스트가 포함되어 있거나 비어 있습니다. 내가하고 싶은 것은 Column2의 셀 텍스트를 Column1의 같은 행에있는 셀에 주석으로 삽입하고 모든 행에 적용하는 것입니다.

예를 들어 다음과 같은 테이블이 있다고 가정합니다.

셀에는 Text1qith 주석이 있습니다 Text4.

등등:

Answer 1

데이터가 있다고 가정해 보겠습니다.A1~을 통해B100. 마음이 바뀌어 매크로 기반 솔루션을 받아들이고 싶다면 다음을 시도해 보세요.

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