Excel batch add different annotations

Sub annotation adding different quantities () 
  Dim the Range of As RNG 
  Dim I of As String 
  the Range ( "A1: Dl") ClearComments. 
  The For Each RNG the In the Range ( "A1: Dl") 
     I = rng.Offset (. 1, 0) .Text 
     RNG Text .AddComment: i = 
  the Next 
End Sub

 

 

 

 .NET Core exchange group: 923 036 995 or 4656606 welcome plus group exchanges (currently only welcome girls into the group)