在VBA中，你可以使用Timer函数来计算代码的运行时间。以下是一个简单的示例：
Sub CalculateRunTime()
Dim StartTime As Double
Dim EndTime As Double
Dim TotalTime As Double
' 记录开始时间
StartTime = Timer
' 你的代码段
'...
' 记录结束时间
EndTime = Timer
' 计算总运行时间（以秒为单位）
TotalTime = EndTime - StartTime
' 显示运行时间
MsgBox "代码运行时间：" & Format & " 秒"
End Sub
这个例子首先获取代码开始运行的时间（StartTime），然后执行你的代码，最后获取代码结束运行的时间（EndTime）。通过计算EndTime与StartTime的差，我们可以得到代码运行的总时间。最后，我们使用MsgBox函数显示这个运行时间。
下面我们再介绍一下Timer函数的定义。
在VBA中，Timer函数用于获取当前时间的小时、分钟和秒。它返回一个Double类型的值，表示从午夜开始到当前时间的秒数。当调用Timer函数时，它将返回一个Double类型的值，表示从午夜开始到当前时间的秒数。这个值是一个浮点数，包含了小数部分，表示毫秒。