用VBA编辑查找公式

wgw628 · 发表于 2024-1-28 14:31

查找E4至R4，ABC三组数据中，第一个找到A组05，B组09，C组59，A组0，B组0，0出现重复2次，A组5，C组5，5出现2次，B组9，C组9，9出现两次。每个数只能出现2次，去重后只能是3个数059，不能多，不能少。第二个找到A组37，B组23，C组27，A组3，B组3，3出现重复2次，A组7，C组7，7出现2次，B组2，C组2，2出现两次。每个数只能出现2次，去重后只能是3个数237，不能多，不能少。每一行只有两组。结果放在S列至V列，能否用VBA做成公式函数。
ABC三组数据的原数据带有公式，非文本格式

微信截图_20240127225846.png

Book2.rar (10.11 KB, 下载次数: 5)

wgw628 · 发表于 2024-1-29 12:38

各位老师，VBA能做出来吗？

过客fppt · 发表于 2024-1-29 14:09

wgw628 发表于 2024-1-29 12:38
各位老师，VBA能做出来吗？

当然可以，我的思路是先把这三个位置的字符组合为6个，只要对字符串去重后只剩下三个字符，那么一定是每个字符只出现了两次

过客fppt · 发表于 2024-1-29 15:52

可以了，设置了同组同种颜色，因为是遍历单元格运行，运行时间太久了，有点不敢拿出手

过客fppt · 发表于 2024-1-29 15:54

可以了，设置了同组同种颜色，因为是遍历单元格运行，运行时间太久了，有点不敢拿出手

wgw628 · 发表于 2024-1-29 17:25

过客fppt 发表于 2024-1-29 15:54
可以了，设置了同组同种颜色，因为是遍历单元格运行，运行时间太久了，有点不敢拿出手

老师，我的表格太大，运行过程中卡死了，如果把去重合并的那个去掉，会不会快点？去重的我可以用公式解决。

过客fppt · 发表于 2024-1-29 17:35

wgw628 发表于 2024-1-29 17:25
老师，我的表格太大，运行过程中卡死了，如果把去重合并的那个去掉，会不会快点？去重的我可以用公式解决 ...

那你用这个数组的吧，运行时间14秒，比之前好多了
有用请送两朵花花，谢谢

wgw628 · 发表于 2024-1-29 17:36

过客fppt 发表于 2024-1-29 15:54
可以了，设置了同组同种颜色，因为是遍历单元格运行，运行时间太久了，有点不敢拿出手

老师，如果去掉去重合并，同时固定一个数据区域，数据区域为E4至R101

过客fppt · 发表于 2024-1-29 17:39

添加关闭屏幕刷新，运行时间再减少0.3秒

过客fppt · 发表于 2024-1-29 17:43

wgw628 发表于 2024-1-29 17:25
老师，我的表格太大，运行过程中卡死了，如果把去重合并的那个去掉，会不会快点？去重的我可以用公式解决 ...

去重合并无法去掉，因为我是判断去重合并，如果只剩下三个字符，说明原来的6个字符恰好每个只出现了两次

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

[求助] 用VBA编辑查找公式

评分

评分

评分