VBA--遍历所有工作表，获取所有行和列，复制粘贴为数值

Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long '封装延时函数 Sub delay(T As Long)     Dim time1 As Long          time1 = timeGetTime     Do         DoEvents     Loop While timeGetTi

>>阅读原文<<