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 歡迎加羣交流（目前只歡迎女生入羣）