VBA之大数运算类

准提部林 · 发表于 2021-2-18 20:26

笑半里发表于 2021-2-16 22:55
您好大师，新年快乐。非常感谢过去对我的帮助，岁月匆匆，一年又将来到，现又有一个问题困扰我很久，大师能 ...

空一行一列, 可以簡單處理:

Xl0000176.rar (12.39 KB, 下载次数: 20)

leolee82 · 发表于 2021-2-19 12:57

代码写的很漂亮

准提部林 · 发表于 2021-2-19 16:41

笑半里发表于 2021-2-16 22:55
您好大师，新年快乐。非常感谢过去对我的帮助，岁月匆匆，一年又将来到，现又有一个问题困扰我很久，大师能 ...

照原表位置, 加個略錯處理:

Xl0000176-1.rar (12.33 KB, 下载次数: 16)

lsdongjh · 发表于 2021-2-19 17:03

准提部林发表于 2021-2-19 16:41
照原表位置, 加個略錯處理:

兄弟，你没理解他的要求，重点是要剔除重复

准提部林 · 发表于 2021-2-19 17:19

lsdongjh 发表于 2021-2-19 17:03
兄弟，你没理解他的要求，重点是要剔除重复

哈!看不懂所謂重覆如何判定~~

不管了

笑半里 · 发表于 2021-2-20 09:07

准提部林发表于 2021-2-19 16:41
照原表位置, 加個略錯處理:

感谢大师的热心相助，这两天忙开工，没及时回来看。准提部林大师巧用数组，Lsdongjh 大师巧用九宫格，都应用的出神入化，都令我羡慕。特别是Lsdongjh 大师多次热心相助，真乃救人于水火之中的大神！衷心感谢！

准提部林 · 发表于 2021-2-20 20:34

lsdongjh 发表于 2021-2-19 17:03
兄弟，你没理解他的要求，重点是要剔除重复

是不是單元格只能被采集一次??
加個字典記錄位址去重:

Xl0000176-1.rar (12.94 KB, 下载次数: 15)

笑半里 · 发表于 2021-2-21 15:13

准提部林发表于 2021-2-20 20:34
是不是單元格只能被采集一次??
加個字典記錄位址去重:

准提部林大师感谢您的热心回复。采集目标单元格周围的单元格，您的代码有些地方我不明白，比如 For i = 0 To 2: For j = 0 To 2 If i = 1 And j = 1 Then Else N = N + 1 在我的理解中，只能部分采集。但确实全采集了，能否指教

准提部林 · 发表于 2021-2-21 17:00

笑半里发表于 2021-2-21 15:13
准提部林大师感谢您的热心回复。采集目标单元格周围的单元格，您的代码有些地方我不明白，比如 ...

A(0,0) 上1--N=1
A(0,1) 上2--N=2
A(0,2) 上3--N=3

A(1,0) 中1--N=4
A(1,1) 本尊--N不累加1
A(1,2) 中3--N=5

A(2,0) 下1--N=6
A(2,1) 下2--N=7
A(2,2) 下3--N=8

笑半里 · 发表于 2021-2-21 18:28

本帖最后由笑半里于 2021-2-21 18:31 编辑

准提部林发表于 2021-2-21 17:00
A(0,0) 上1--N=1
A(0,1) 上2--N=2
A(0,2) 上3--N=3

大师代码的算法，很精巧，我还没完全弄懂。附件里的目标有没有好的算法

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

[原创] VBA之大数运算类