Sub 计算宏运行所用时间() Dim tt As Single tt = Timer '宏名字 MsgBox "ok,用时" & Timer - tt & "秒!" End Sub
转自:https://blog.csdn.net/henryghx/article/details/8806333