还要先判断是不是nothing

2011ohte 发表于 2023-6-25 15:17
对5万个单元格加批注，相差0.02秒

这样说我就没必要去试了,意义不大...

学习一下

对5万个单元格加批注，相差0.02秒

1. Sub test1()
   
2. 
   
3. t1 = Timer
   
4. 
   
5. Range("B1:B50000").ClearComments
   
6. For i = 1 To 50000
   
7. Cells(i, 2).AddComment Cells(i, 1).Text
   
8. Next
   
9. 
   
10. MsgBox (Timer - t1) & "秒"
    
11. 
    
12. End Sub
    
13. 
    
14. Sub test2()
    
15. t1 = Timer
    
16. 
    
17. Range("B1:B50000").ClearComments
    
18. For Each C In Range("B1:B50000")
    
19. C.AddComment C.Text
    
20. Next
    
21. 
    
22. MsgBox (Timer - t1) & "秒"
    
23. 
    
24. End Sub
    

复制代码

2011ohte 发表于 2023-6-25 08:33
数组当然是最快的。
删除批注可以用Range("A1:B50").ClearComments

用for to感觉速度有点慢,用for each cell能不能快点?

@坏坏老师~

他精通 vb5.0 ,可以向他取经~

数组当然是最快的。
删除批注可以用Range("A1:B50").ClearComments

添加批注不能用数组，只能循环。

2011ohte 发表于 2023-6-20 13:21
一般Cells比Range方便
批注要先清除再增加

能不能用Cells批量添加批注,试了下Range("A1:B5")=数组的形式直接写速度快些,用Cells时我用用for to 循环,明显可以看出来效率低速度慢了一拍

2011ohte 发表于 2023-6-20 13:21
一般Cells比Range方便
批注要先清除再增加

原来是要先清除才能添加,我试好久都没搞定,还以为哪有问题呢...

一般Cells比Range方便
批注要先清除再增加

1. Sub test()
   
2. Cells(9, 1).ClearComments
   
3. Cells(9, 1).AddComment "http://bbs.wuyou.net/"
   
4. End Sub
   

复制代码

补充一下,使用cells(8,1).value是可正常对单元格进行赋值和读取的