请高手帮我做个宏啊（相连且相同的数）

蓝色风

请高手帮我做个宏哦目的是把数据表的B列-H列的其中一行的相连的两个，或三个以上的数字相同的就复制到（查询表）的A2至H列以下。比如B2-H2有（7，8，1，4，8，8，7）其中（8和8就是相连而且相同的两个数），在比如B9-H9有（1，1，1，5，0，5，5）其中（1，1，1，就是相连且相同的三个数），请看效果表

蓝色风

请路过的高手帮一下啊

山风

Sub 提取()
With Sheets("数据表")
For b = 2 To .Range("A65536").End(xlUp).Row
    For s = 2 To 7
        m = .Cells(b, s)
        n = .Cells(b, s + 1)
        If m = n Then
        .Cells(b, 9) = "OK"
        End If
            Next s, b
    [Z2] = "=数据表!I2=""OK"""
    .[A:I].AdvancedFilter 2, [Z1:Z2], [A1:H1]
    [Z2] = ""
    .Columns("I:I").ClearContents
End With
End Sub

搞定.rar (10.89 KB, 下载次数: 10)

2011-2-25 20:38 上传

点击文件名下载附件