VBA 代码优化 ( 高难题 )

leirongqin · 发表于 2023-1-9 17:30

On_fire 发表于 2023-1-9 17:07
老师好,
你的代码是快了很多,
但有个问题是源数据原本每一行有小部分, 最多有约100个单元格,

应该是你源文件里面有些地方空格太多，原代码第6行arr = Sheets(1).[A1].CurrentRegion出错。把它改arr=Sheets(1).UsedRange，应该可以解决问题

On_fire · 发表于 2023-1-9 17:36

leirongqin 发表于 2023-1-9 17:09
可以提供新的附件？

太好了, 快了4~5倍…

On_fire · 发表于 2023-1-9 17:39

leirongqin 发表于 2023-1-9 17:14
我并没有改变原文件代码的算法，只是加一个条件判断和Union合并区域赋值。所以不知道你说的数据少了是什 ...

老师好,
已经找到原因, 也改了…

arr = Sheets(1).UsedRange ' [A1].CurrentRegion

grf1973 · 发表于 2023-1-10 11:19

用子程序简化代码
用多个字符串组成的地址集合标红，比一个一个单元格标红快

适用于列数不是很大（<27）的情形。如果很大的话，地址字符串要重新设计。

grf1973 · 发表于 2023-1-10 11:22

1000行，生成1000个工作表？

于箱长 · 发表于 2023-1-10 11:23

我是来学习的

On_fire · 发表于 2023-1-10 12:10

grf1973 发表于 2023-1-10 11:22
1000行，生成1000个工作表？

老师能出手真好,
是的, 一千张是部分做测试…
源数据好像要生成三千多表才对…

On_fire · 发表于 2023-1-10 12:14

grf1973 发表于 2023-1-10 11:19
用子程序简化代码
用多个字符串组成的地址集合标红，比一个一个单元格标红快

老师好,
一行的列数最多是100列左右, 占小部分...

On_fire · 发表于 2023-1-10 13:06

grf1973 发表于 2023-1-10 11:22
1000行，生成1000个工作表？

老师好,
用一千行做测试,
您的代码很快, 比原来的代码快5~6倍..
但只比2楼的快了约1分钟 ( *可能未改的格式输出也要一些时间 )
*
请以2楼的代码再优化 ( *符合格式要求 ),
相信会更快...

grf1973 · 发表于 2023-1-10 13:15

那用Union吧。Range(字符串)里面的字符串好象不能超过255个字符。

		自动登录	找回密码
密码			免费注册

[求助] VBA 代码优化 ( 高难题 )