|
楼主 |
发表于 2024-2-11 09:02
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
谢谢老师!
我把您写的如下这一段
- For y = UBound(ar) - 2 To 1 Step -1 '倒着判断,这样速度可能有所提升,以下为猜测
- If Left(ar(y), 10) > Left(ar(y - 1), 10) Then '比上面的split 快点
- br = Split(ar(y), vbTab)
- For j = 0 To UBound(br)
- vResult(r, j) = br(j)
复制代码 改为,定位提取
- 'For y = UBound(ar) - 2 To 1 Step -1 '倒着判断,这样速度可能有所提升,以下为猜测
- y = UBound(ar) - 240 - 1 '我用这一句,代替For...Next y
- If Left(ar(y), 10) > Left(ar(y - 1), 10) Then '比上面的split 快点
- br = Split(ar(y), vbTab)
复制代码 提取4415个txt,耗时由76秒( 历遍提取),改成提升到58秒(定位提取)
|
|