求助一个对比并操作的代码

hfwufanhf2006 · 发表于 2019-6-25 15:58

ryoryo66 发表于 2019-6-25 15:37
我明白了,那么能不能直接在数据源上面进行清除,写在下面有点不太方便?

1、你先要看下写的结果对不对？一旦在原数据区域写上结果，源数据就不能恢复了，所以要慎重；2、直接在源数据写结果还有一个很大的弊端：只能做一次运算，万一你修改了规则还想重新计算呢？
3、大多数情况下，源数据和计算结果都是分离的，源数据表和计算结果表是两个不同的工作表，我其实建议拟采用这种格式比较好。

ryoryo66 · 发表于 2019-6-25 16:09

hfwufanhf2006 发表于 2019-6-25 15:58
1、你先要看下写的结果对不对？一旦在原数据区域写上结果，源数据就不能恢复了，所以要慎重；2、直接在源 ...

行,谢谢老师,我先多试验一下!

zjdh · 发表于 2019-6-25 17:21

宏不用那么复杂，简单几句解决问题：
Sub TEST() '清理
For I = Range("B65536").End(3).Row To 4 Step -1  '行
      For J = 1 To 5       '组
         N = 0
         For K = 1 To 12    '列
            For M = 2 To 7  '对比列
                  If Cells(I, M) = Cells(I, J * 12 + K + 64) Then N = N + 1
         Next: Next
         If N > 1 Then Cells(I, J * 12 + 65).Resize(1, 12).Delete '删除行
Next: Next
End Sub

zjdh · 发表于 2019-6-25 17:23

求助.rar (122.09 KB, 下载次数: 1)

ryoryo66 · 发表于 2019-6-25 21:30

zjdh 发表于 2019-6-25 17:23

谢谢老师.
这个能不能改动一下.
我的本意是,根据B列为空值的那一行,的上一行开始对比,
如果有满足条件的,就只删除那个区域的整列.
比如这个 B列为空值的第6行,那么就从第5行开始对比.5个区域里满足相同的大于1的有3个区域,就把这3个区域给整列删除了!

zjdh · 发表于 2019-6-26 07:57

你再描述一下，就你的附件，从第几行到第几行需要对比，那几个区域需要删除！

ryoryo66 · 发表于 2019-6-26 16:44

zjdh 发表于 2019-6-26 07:57
你再描述一下，就你的附件，从第几行到第几行需要对比，那几个区域需要删除！

辛苦老师,上午出去了刚回来!
BY:CJ,  CK:CV,  CW:DH,  DI:DT,  DU:EF 这五个区域,对应B:G
从第B列为空的上一行开始,比如B6为空,那么就从第5行开始对比.(对比的行数就是B为空的那一行减 1),第6行的BY:EF可以当作看不见.
也就是如果哪个区域和B5:G5相同的值大于1个,就把那个区域整列删除.
比如:BY5:CJ5,对应B5:G5,相同的有2个,BY:CJ删除;
      CW5:DH5,对应B5:G5,相同的有5个,那么就把CW:DH删除;
      DI5:DT5,对应B5:G5,相同的有3个,DI:DT也删除;

还有一个,我这五个区域,也不是固定的,我还得往后面加一些.

zjdh · 发表于 2019-6-26 22:55

本帖最后由 zjdh 于 2019-6-26 23:04 编辑

求助3.rar (98.62 KB, 下载次数: 6)

ryoryo66 · 发表于 2019-6-26 23:57

非常感谢老师.

ryoryo66 · 发表于 2019-6-27 00:05

我突然忘了一个情况,就是当最后一行,设定为 B为空减2,那么参与运算的就是2行,每一行对应前面的B:G.进行删除.
我把删除改成清空了,这样方便测试.

那么这样的结果就是第一个表
再辛苦您一下.

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