慢是因为公式在计算, 运算完才让你添加 或删除
代码 填加2句:就解决了
Private Sub btn3(filename, Dline)
Application.Calculation=xlCalculationManual '这里添加
Sheets.Add After:=Sheets(Sheets.Count)
=================================
Application.DisplayAlerts = False
Sheets("temp").Delete '这里也会变慢
Application.Calculation=xlCalculationAutomatic '这里添加
加一句:
Private Sub btn3(filename, Dline)
Application.Calculation=xlCalculationManual '这里添加
Sheets.Add After:=Sheets(Sheets.Count)
=================================
Application.DisplayAlerts = False
Sheets("temp").Delete '这里也会变慢
Application.Calculation=xlCalculationAutomatic '这里添加
如果数据超10万级 基本处理一次就要1、2分钟了。如果超百万级就很卡了(还是分多sheet处理),单个sheet处理不了。数据多建议不如导入数据库。。。。
你要干嘛呢?代码优化空间很大。
发表我看看,文本文件也打包发过来。
987122817@QQ.COM