代码需要优化一下，估计都是最笨的代码写的
VBA代码提速常用的方法主要有: 让代码"专注"运行例如:将Application.ScreenUpdating设定为False,关闭屏幕更新 单元格(区域)写法的选择单
