速度测试_VBA_EXCEL_单元格选取

最新推荐文章于 2024-09-25 11:09:10 发布

Hellow World，siri

最新推荐文章于 2024-09-25 11:09:10 发布

阅读量157

点赞数

分类专栏： VBA EXCEL 速度测试文章标签： vba excel

本文链接：https://blog.csdn.net/qq_37377787/article/details/109460846

版权

VBA 同时被 3 个专栏收录

1 篇文章 0 订阅

订阅专栏

EXCEL

1 篇文章 0 订阅

订阅专栏

速度测试

1 篇文章 0 订阅

订阅专栏

【需求】
速度测试_VBA_EXCEL_单元格选取
【结论前置】
使用的方法和对象越少越好，定位越精确，耗时越长
【结论数据】
"Sheets(1).Cells(i, 1).Select

ActiveCell.FormulaR1C1 = ““10"”” Sheets(1).Cells(i, 1).FormulaR1C1 = “10” “REM Sheets(”“89"”).Select
Sheets(1).Cells(i, 1).Select
ActiveCell.FormulaR1C1 = ““10"”” “Sheets(”“89"”).Select
Sheets(1).Cells(i, 1).Select
ActiveCell.FormulaR1C1 = ““10"”” "Sheets(1).Cells(i, 5) = "“10"”
"
10 10
10 0.07422 1.01611 5.81397 10
10 0.04395 0.04395 0.04102 10

在这里插入图片描述
【代码块】


```vbnet
Sub 速度测试_单元格选取()
Dim i As Integer

Dim t As Date

Dim t1 As String

Dim t2 As String

t = Timer

For i = 2 To 3000

Sheets(1).Cells(i, 1).FormulaR1C1 = "10"

Next

t1 = Timer - t

t = Timer

For i = 2 To 3000

Sheets(1).Cells(i, 5) = "10"

Next

t2 = Timer - t

Sheets(1).Cells(3, 2).Select

Sheets(1).Cells(3, 2) = Format(t1, "0.00000")

Sheets(1).Cells(4, 2) = Format(t2, "0.00000")

MsgBox "第一次运行时间:" & Format(t1, "0.00000") & "秒" _
& Chr(13) & "第二次运行时间:" & Format(t2, "0.00000") & "秒"



End Sub