开发工具中添加VBA: 其中A2:D2(第2行,A到D列)是要添加批注的行,rng.Offset(2, 0)中的2是间隔批注行的内容,意思是将隔一行的内容,插入到A2:D2作为批注 Sub 批量添加不同批注() Dim rng As Range Dim i As String Range(“A2:D2”).ClearComments For Each rng In Range(“A2:D2”) i = rng.Offset(2, 0).Text rng.AddComment Text:=i Next End Sub