Excel批量添加不一样的批注

Sub 批量添加不一样批注()
  Dim rng As Range
  Dim i As String
  Range("A1:D1").ClearComments
  For Each rng In Range("A1:D1")
     i = rng.Offset(1, 0).Text
     rng.AddComment Text:=i
  Next
End Sub

 

 

 

 .NET Core 交流群：923036995 或 4656606 欢迎加群交流（目前只欢迎女生入群）