第一，Application.ScreenUpdating = False 与之相对应的语句没有，自然不能加速程式运行，在最后面加如下 Application.ScreenUpdating = True 第二，不要查一个比一个，一次性将数实际库存导入到一张隐藏sheet中，再从隐藏sheet中将值写到实际库存列中。数据库数据的导入导出运行是最慢的。所以写程式时尽...