[已解决]请老师或高手给看代码怎么修改

dfzc

P21中有   51 08 35 46 47 72 10 14 48 60
前三列（G21：I21）中有24 47 52    Q21运算结果为 “OK” 正确
中三列（J21：L21）中有54 24 22    R21运算结果为 “无” 正确
后三列（M21：O21）中有42 47 27    S21运算结果为 “无” 结果是错误的，有一个同数又同位的47，请老师高手们帮忙修改下代码，谢谢

全列.zip (41.03 KB, 下载次数: 17)

2014-6-6 08:07 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2014-6-6 08:43

Sub CommandButton2_Click()
    Dim ARR, BRR, t$, i&, j&, k&, MaxRow&, MaxCol&, AR
    MaxRow = Cells(Rows.Count, "G").End(xlUp).Row
    MaxCol = Cells("18", Columns.Count).End(xlToLeft).Column
    ARR = Range("G18:O" & MaxRow)
    For n = 0 To MaxCol - 16 Step 4
        ReDim BRR(1 To UBound(ARR), 1 To 3)
        AR = Range("P18").Offset(0, n).Resize(UBound(ARR), 1)
        For i = 1 To UBound(ARR)
            t = AR(i, 1)
            For j = 1 To 3
                BRR(i, j) = "无"
                For k = 3 * j - 2 To 3 * j
                    If InStr(t, ARR(i, k)) > 0 Then BRR(i, j) = "OK": Exit For
                Next
            Next
        Next
        [Q18].Offset(0, n).Resize(UBound(BRR), 3) = BRR
    Next
End Sub

跳转到最佳答案楼层

zjdh

Sub CommandButton2_Click()
    Dim ARR, BRR, t$, i&, j&, k&, MaxRow&, MaxCol&, AR
    MaxRow = Cells(Rows.Count, "G").End(xlUp).Row
    MaxCol = Cells("18", Columns.Count).End(xlToLeft).Column
    ARR = Range("G18:O" & MaxRow)
    For n = 0 To MaxCol - 16 Step 4
        ReDim BRR(1 To UBound(ARR), 1 To 3)
        AR = Range("P18").Offset(0, n).Resize(UBound(ARR), 1)
        For i = 1 To UBound(ARR)
            t = AR(i, 1)
            For j = 1 To 3
                BRR(i, j) = "无"
                For k = 3 * j - 2 To 3 * j
                    If InStr(t, ARR(i, k)) > 0 Then BRR(i, j) = "OK": Exit For
                Next
            Next
        Next
        [Q18].Offset(0, n).Resize(UBound(BRR), 3) = BRR
    Next
End Sub

zjdh

别忘了，你原先是2数为一组，现在变成3数为一组！！

dfzc

高手啊，谢谢指教，总算解决了