VBA求助根据相等条件合并成一个五位数

李七三 · 发表于 2026-4-21 13:55:38

VBA逻辑：
1、原理：将单元格A1&单元格B1最后一个字符&C1最后一个字符,组合成一个五位数。
2、条件判断：①截取A1最后两个数字是否等于截取B1左边两个数字；②截取B1最后两个数字是否等于截取C1左边两个数字。
3、遍历B列，C列数据
4、以此类推，直至把A列单元格中的数据与B列、C列单元格中的所有数据全部匹配完成。
5、例：A1为379,截取最后两位79，B1为791，截取左边两位79，79=79；
         B1为791,截取最后两位91，C1为916，截取左边两位91，91=91；
         379 & 1 & 6，最后得出一个五位数为37916，依次可继续得出37910、37918
以上，请指教，非常感谢！
是否用函数公式也能实现？

VBA求助根据相等条件合并组成一个5位数.rar (40.6 KB, 下载次数: 0)

情圣解说 · 发表于 2026-4-21 14:15:39

附件供参考。。。

VBA求助根据相等条件合并组成一个5位数.zip (325 Bytes, 下载次数: 0)

满满意意 · 发表于 2026-4-21 14:35:59

你好，VBA还麻烦要修改一下，当B列单元格中的数据为011，或者是001时，好像结果有点出入，例60行中的51111，51110和192行中的81111、81110应该不存在，截取数据时不知是不是把B11中的011，把前面这个0省略了，而当作110处理的，所以截取了前面的11，但应该是截取01

熊兔保安 · 发表于 2026-4-21 14:48:18

参与一下....

VBA求助根据相等条件合并组成一个5位数.rar (80.17 KB, 下载次数: 0)

方小清 · 发表于 2026-4-21 14:52:57

VALUE 改为 text，然后出错的删去即可。

镜子花 · 发表于 2026-4-21 15:17:45

当更换一批数据时，显示下标越界 If i = kk + 1 Or xs(i, 2) = "" Then 请问是什么原因？谢谢

天镜 · 发表于 2026-4-21 15:32:48

麻烦不要截图，可以发可以复制的VBA吗

瘾丶 · 发表于 2026-4-21 15:48:13

如果I = KK+1 满足 xs(i,2)就下标越界了，2个条件不能写在一行，修改一下

VBA求助根据相等条件合并组成一个5位数.rar (78.99 KB, 下载次数: 0)

文锦 · 发表于 2026-4-26 19:56:31

博主态度认真，文章质量很高。

理科老狮 · 发表于 2026-4-30 02:09:19

博主更新很勤快，支持一下。

		自动登录	找回密码
密码			立即注册

VBA求助根据相等条件合并成一个五位数

浏览过的版块

UID勋章

测量学徒

测量员

VBA求助 根据相等条件合并成一个五位数

浏览过的版块

UID勋章

测量学徒

测量员

您看了很久哦，登陆下吧！

VBA求助根据相等条件合并成一个五位数