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

zjdh

看不懂你的表述！

ryoryo66

zjdh 发表于 2019-6-27 15:04
看不懂你的表述！

就是说,您的代码是,从第5行开始,删除满足条件的整列.
我需要,从第4行开始,对比第4行.删除满足条件的整列.......然后再进行到第5行,对比第5行再删除满足条件的整列.
删除的话,我怕您不方便,所以就用清除命令来测试一下.

zjdh

Sub QL()
    With ActiveSheet
        W = .Range("B65536").End(3).Row  '尾行
        C = (.Range("BY2").End(2).Column - 76) / 12    '组数
        For I = W - 1 To W
        For j = C To 1 Step -1          '组
            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).EntireColumn.Delete    '删除列
        Next: Next
    End With
End Sub

ryoryo66

zjdh 发表于 2019-6-28 08:25
Sub QL()
    With ActiveSheet
        W = .Range("B65536").End(3).Row  '尾行

辛苦老师了,可是这个删除结果不对了,最后12列是不满足条件的,不删除

zjdh

哪不对啦？不是没删除吗？

ryoryo66

zjdh 发表于 2019-6-28 18:18

非常感谢老师,真是辛苦了!