VBA add comment cho 1 range với nội dung dò từ sheet khác

range add comment:A2:A10

range dò comment:sheet data cột B, nội dung comment ở cột C

Sub AddComment()

     

    Dim r As Excel.Range

    Dim c As Excel.Range

  

    Set Rng = ActiveSheet.Range("A2:A10")

    For Each c In Rng

         

        With c

           

            Set r = Sheets("Data").Range("B:B").Find(What:=.Value, Lookat:=xlWhole, MatchCase:=False)

            If Not r Is Nothing Then

               

                .ClearComments

              

                .AddComment

                .Comment.Visible = False

                .Comment.Text r.Offset(, 1).Value

              

                .Comment.Shape.TextFrame.AutoSize = True

            End If

        End With

    Next c

End Sub