各位老师，单元格的等式插入批注，代码如何修改？

mrshz

各位老师，想把单元格的等式插入批注，运行  提示“424”错误     ，求助代码如何修改，万分感谢？

大灰狼1976

数组没有Formula属性。

1. Sub test()
   
2.     Dim rng As Range, i%
   
3.     Set rng = Sheet1.Range("A1:A300")
   
4.     For i = 2 To rng.Rows.Count
   
5.         If rng(i, 1) <> "" Then
   
6.             With Range("a" & i)
   
7.                 If Not .Comment Is Nothing Then .Comment.Delete
   
8.                .AddComment.Text Text:=rng(i, 1).Formula
   
9.                 .Comment.Visible = False
   
10.             End With
    
11.          End If
    
12.     Next
    
13. End Sub

复制代码

mrshz

大灰狼1976 发表于 2019-6-12 16:38
数组没有Formula属性。

谢谢老师指教！