[已解决]AddComment 添加批注时提示错误,求高手!

chulia_wong

dim arr,i%
arr = Application.Transpose(Sheet4.[L6:L3005])
         For i = 6 To 3005
          Sheet4.Range("ab" & i).AddComment.Text arr(i - 5) ' ' 这句提示应用 应用程序定义或对象错误,
         Next i
请问怎么回事,明明没错呀!

最佳答案

月排行榜 / 总排行榜

zjdh

2015-8-31 08:24

那是因为单元格里已存在批注了。
修改如下：
   Dim arr, i%
    arr = Application.Transpose(Sheet4.[L6:L3005])
    For i = 6 To 3005
        Sheet4.Range("ab" & i).ClearComments
       Sheet4.Range("ab" & i).AddComment.Text arr(i - 5)
    Next i

跳转到最佳答案楼层

zjdh

那是因为单元格里已存在批注了。
修改如下：
   Dim arr, i%
    arr = Application.Transpose(Sheet4.[L6:L3005])
    For i = 6 To 3005
        Sheet4.Range("ab" & i).ClearComments
       Sheet4.Range("ab" & i).AddComment.Text arr(i - 5)
    Next i