求助一个代码，如何把符合条件的列集中在一起

三等菜鸟

终于能上了，前几次总显示“”“blocked by cc firewall”

xiangbaoan

三等菜鸟 发表于 2018-8-2 08:39
终于能上了，前几次总显示“”“blocked by cc firewall”

Sub test()
Dim ar, br, cr(), r&, c%, n%, k%
UsedRange.Font.ColorIndex = xlAutomatic
ar = [h5].Resize(5)
br = [n5].Resize(6, 10)
For c = 1 To 10
    n = 0
    For r = 1 To 5
        If br(r, c) = ar(r, 1) Then
            n = n + 1
            Cells(r + 4, c + 13).Font.Color = vbRed
        End If
    Next
    If n Then
        k = k + 1
        ReDim Preserve cr(1 To k)
        cr(k) = c + 13
    End If
Next
''''''''''''''''''''''这是原来的
'For c = 1 To k
'    Cells(5, cr(c)).Resize(6).Copy [m18].Offset(0, c)
'Next
''''''''''''''''''''''这是改过的
For c = 1 To k
    Cells(5, cr(c)).Resize(6).Copy
    With [m18].Offset(0, c)
        .PasteSpecial 13 '选择性粘贴   格式
        .PasteSpecial -4163 '选择性粘贴   值
    End With
Next
[l18].Resize(5) = ar
End Sub

三等菜鸟

不好意思，要以这为准，否则t=[a65536].End(xlUp).Row 就不对了

xiangbaoan

三等菜鸟 发表于 2018-8-2 09:08
不好意思，要以这为准，否则t=[a65536].End(xlUp).Row 就不对了

^^^^^^^^^^^^^^^^

三等菜鸟

谢谢xiangbaoan
下午试了一下，还是最初的代码可行，就是粘贴有点问题。在加了
.PasteSpecial 13
        .PasteSpecial -4163   后

运行到这里，就提示 “编译错误，无效或不合格的引用”，是不是这两个paste有问题？

xiangbaoan

三等菜鸟 发表于 2018-8-2 16:05
谢谢xiangbaoan
下午试了一下，还是最初的代码可行，就是粘贴有点问题。在加了
.PasteSpecial 13

有没有问题，你试一下就知道了，这种用法我在2013版、2016版中用了几年了，没你所说的情况。
再者，你仿写的那段，连模拟的数据都不提供，我是不会去测试的。
至于我所发的附件，起码是经过我的测试的，至少在我这里是正常的。
其它的我不得而知。

三等菜鸟

xiangbaoan 发表于 2018-8-2 18:17
有没有问题，你试一下就知道了，这种用法我在2013版、2016版中用了几年了，没你所说的情况。
再者，你仿 ...

那估计是我的版本太老的缘故