求个VBA代码 请老师们当作练手 奏数求和求相同数据 谢谢

徐国友

    请老师们在百忙之中帮写一个VBA代码 先谢谢老师们的帮助。（看到yynrzwh老师贴出图片对比后现发现附件中原人工模拟结果14，15，16都有遗漏）

      表中有四排10X8规格的1－16个表（可将10X8规格按顺序看作是数字1－16）判断出每一排中有数字的几个表，然后把它们按照先后顺序填列成4排到指定区，再把这4排数字奏数求和填充在指定区域（奏数求和的理论规则是第一二三排各取1个数字相加＝第四排1个数字结果（同理求出第四排其他全部数字的和＝123排数字相加奏数求和）   
      当然实际上随着四排10X8规格1234排有数字的表框不同，有1排+2排+3排＝4排或1排+2排＝4排，1+3＝4，2+3＝4，特定情况下也可有1=4,2=4,3=4,人为手工排列麻烦且恐有遗漏故求老师帮写一个VBA代码，但不管前123排数字有几排数字相加等于第四排数字，但规则是不管那种形式取数每一排都只允许取一个数字（绝对不能某一排取2个数字）,老师们不知我的意思表达清没有？详情见附件，（不管这个10X8规格的表中填有多少个数字，都看成是本框内背景颜色数字，然后用每排这些相关数字凑数后求相同次数）请老师们帮助非常感激。 凑数等.rar (144.8 KB, 下载次数: 21)

2024-10-26 22:00 上传

点击文件名下载附件

补充内容 (2024-10-28 22:25):
本问题已由gwjkkkkk老师完美解决，再次拜谢gwjkkkkk老师。同时也再次感谢yynrzwh老师及其他朋友们的帮助。

yynrzwh

这么繁琐我还真写出来了

徐国友

yynrzwh 发表于 2024-10-27 00:19
这么繁琐我还真写出来了

yynrzwh老师你好，看到你贴出的图片 还真如你所说：你写出来了！因为我同我那个模拟一对比就发现你代码奏出来的有我人工奏的14及15都没有的组合，14及15竟然都有好几个遗漏，不知是你截图未完全还是代码有点小遗漏，16=第1排10+第2排6在你截图上没有看到，yynrzwh老师你好可否馈赠你的代码，谢谢

yynrzwh

徐国友

yynrzwh 发表于 2024-10-27 12:52

感谢yynrzwh老师馈赠的代码，我先去滕抄代码试试，万一代码滕抄时有不对无法解决时再来向老师求教，再次感谢yynrzwh老师。

徐国友

yynrzwh 发表于 2024-10-27 12:52

yynrzwh老师,抄好后运行时出错，请帮助看看是怎么回事好吗？实在是无法解决，只好再次打扰，是我抄得有错误，还是因我是OFFICE2007版的原因吗？初抄写时有许多红字但后面全部更正后一个红字也没有了的

shiruiqiang

哦b不是零b

徐国友

shiruiqiang 发表于 2024-10-27 14:57
哦b不是零b

谢谢指点，高  高  高 实在是高
哈 一字之师     
汉颜汉颜  

徐国友

yynrzwh 发表于 2024-10-27 12:52

yynrzwh老师你好，吾再厚颜一次，可否请你在空闲时再将最后一步代码写一下，谢谢，当然若实在没空就算了。

徐国友

shiruiqiang 发表于 2024-10-27 14:57
哦b不是零b

shiruiqiang老师你好，能否请你也练练手  试试把这个代码也写一次  yynrzwh老师的代码没有写完最后一步，若方便请写过完整代码。没空略过。