清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Dim a As Date
Dim b As Date
a = Time
Application.ScreenUpdating = False   '''''''''''''''''''''''锁屏
Call data.dataCheck
Call data.storeFormation
Call data.datas
Call data.states
Application.ScreenUpdating = True
b = Time - a
MsgBox b                           '''''''''''''''''''''''''''''''''''输出程序运行所要花费的时间