求老师帮写个VBA代码从多表中选择相同及不同数据

weiyingde

chxw68 发表于 2017-10-20 22:52
仔细看了你的代码，修改了一会又修改成我上面的代码了。

谢谢你，我主要是想知道红字的部分，有什么毛病。
若是太烧脑，就勉为其难了。

chxw68

weiyingde 发表于 2017-10-21 08:43
谢谢你，我主要是想知道红字的部分，有什么毛病。
若是太烧脑，就勉为其难了。

算法和逻辑都有问题，没有多大修改价值。

weiyingde

chxw68 发表于 2017-10-21 08:46
算法和逻辑都有问题，没有多大修改价值。

算法上的错误，经lzxdy指点，本人测试，已经明白，改为红字的部分
至于逻辑错误，我还是不明白。
                 If rn1 = rn2 Then
                    n = n + 1
                   m = 1 + Int((n - 1) / 8)   '----2
                    p = IIf(n Mod 8 = 0, 8, n Mod 8)
                    crr(m, p) = rn2
                    Set rng1 = Nothing
                    Set rng2 = Nothing
                 Else
                    d(rn1) = ""
                 end if

lzxdy

weiyingde 发表于 2017-10-21 09:45
算法上的错误，经lzxdy指点，本人测试，已经明白，改为红字的部分
至于逻辑错误，我还是不明白。
      ...

这个判断在对重复和不重复的数字进行分类时是有问题的：
是因为前表中的数字和后表中每一格的数字都要要进行比较，后表有两格以上那么相等及不等必然出现，都会运行到d(rn1)=""，这就导致字典中会加入前表中的所有数字，没有达到分类的目的。
如果在判断出相等即重复时，将字典中已添加的这个数剔除掉，并不再与剩余数字比较，字典中就不会有多余的了，从而达到对前表数字进行无重复无遗漏的二分。
可试将上面代码作如下修改分步运行来理解：
crr(m, p) = rn2
改为：
crr(m, p) = rn2
If d.exists(rn1) Then d.Remove rn1
Exit For

weiyingde

lzxdy 发表于 2017-10-21 15:42
这个判断在对重复和不重复的数字进行分类时是有问题的：
是因为前表中的数字和后表中每一格的数字都要要 ...

谢谢耐心指教。
测试时，不重复的数据还是不全。

weiyingde

chxw68 发表于 2017-10-20 16:49

储老师，能否解释一下并注释一下以下代码：
          If Len(arr(x, y)) <> 0 Then
              If Not d.exists(arr(x, y)) Then
                Set d(arr(x, y)) = CreateObject("scripting.dictionary")
              End If
              d(arr(x, y))(i) = ""
            End If

chxw68

字典嵌套，用来判断是否重复。

efttr55dyf

chxw68 发表于 2017-10-21 17:40
字典嵌套，用来判断是否重复。

chxw68老师您好，您的代码已经完整的解决了表1和表一类（共12表）中不重复数据的选择问题，但表甲一至表甲六中只是将表1和表一中不重复数据的按原表顺序填列出来，假如现在表甲一至表甲六中  选择出来 的不重复数据  要求按从小到大的顺序排列[则表甲一中选出数据将不按888        999 111排列    而应该按111 888 999来排   表甲三中679后面将不再填列013 026 034  而是应该将013 排列在009之后  026则排列在027前面]  chxw68老师如果要做到按重小到大的排列（填列），那么您的那个代码又要怎样修改呢？如果方便请修改，好得以一窥怎样“改变世界”。谢谢

]

chxw68

修改好了。

efttr55dyf

chxw68 发表于 2017-10-21 19:53
修改好了。

谢谢chxw68老师弹指间“指点江山、激扬代码”，明日再来献花致谢。