因系统编号变更对新旧两个工作表进行整合

wjhoftxz · 发表于 2024-9-11 16:12

存在新旧两个工作表，因部分“规则要求”进行修订，编制了新的系统编号，修改了相关内容，现要将此两个表整合在同一个“整合表”中。

具体要求如下：系统编号如果存在新的，B列标注绿色，C列至G列按“新编号表”的内容填写，序号中写原先的系统编号；如果系统编号不变，就按原先“旧编号表”填写；如果“新编号表”没有，则在序号中标注找不到，黄色底纹；新编号在“旧编号表”中没有的，复制到下面行中。

其实有几千至上万行，格式也有所不通过，范列是做了些修改。我写了代码虽然能够成功，但是运行时间太长。我感觉这个问题有点复杂，希望大神们能解决此类VBA批量处理问题，最好能对各种方法进行运行时间比较，选出最优方法。

shiruiqiang · 发表于 2024-9-11 18:33

本帖最后由 shiruiqiang 于 2024-9-11 18:35 编辑

shiruiqiang · 发表于 2024-9-11 18:42

说实话，这里改几个，比你标色的速度快

wjhoftxz · 发表于 2024-9-12 08:15

shiruiqiang 发表于 2024-9-11 18:33

非常感谢！这么快就帮忙编写了代码，我试试看

wjhoftxz · 发表于 2024-9-12 08:18

shiruiqiang 发表于 2024-9-11 18:42
说实话，这里改几个，比你标色的速度快

谢谢指教！

wjhoftxz · 发表于 2024-9-12 09:07

shiruiqiang 发表于 2024-9-11 18:33

实际上，系统编号不是按部门设定的，是由部门和要求内容两项共同进行绑定的，这个要如何更改

shiruiqiang · 发表于 2024-9-12 10:12

本帖最后由 shiruiqiang 于 2024-9-12 10:26 编辑

dic改为arr(x,3) &"|"& arr(x,4),同理

wjhoftxz · 发表于 2024-9-12 10:34

shiruiqiang 发表于 2024-9-12 10:12
dic改为arr(x,3) &"|"& arr(x,4),同理

谢谢大神的帮助！！！

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

[求助] 因系统编号变更对新旧两个工作表进行整合