[已解决](已解决）求助：快速查询A列相同差几之数

南粤风采

如附件，谢谢各位高手。 Mb3XrCQq.rar (3.32 KB, 下载次数: 0)

2010-7-25 00:46 上传

点击文件名下载附件
求助：快速查询A列相同差几之数

两位师傅做的都很好。特别是六楼师傅做的，快捷方便。七楼师傅做的，稍做调试即可。在此深表谢意。

[此贴子已经被作者于2010-7-25 15:50:30编辑过]

最佳答案

月排行榜 / 总排行榜

白开水的微笑

2010-7-25 01:21

DP4wcBC3.rar (10.52 KB, 下载次数: 1)

2010-7-25 01:20 上传

点击文件名下载附件
求助：快速查询A列相同差几之数

Sub 标色()
Dim se(1 To 5) As Integer
se(1) = 3
se(2) = 7
se(3) = 38
se(4) = 64
se(5) = 33
k = 1
    Range("a1:a" & [a65536].End(xlUp).Row).Interior.ColorIndex = xlNone
    For i = 1 To [a65536].End(xlUp).Row Step 3
        For j = i + 3 To [a65536].End(xlUp).Row Step 3
            If Cells(i, 1) = Cells(j, 1) Then
                If Abs(Cells(i + 1, 1) - Cells(j + 1, 1)) = [c1] Then
                    Cells(i, 1).Interior.ColorIndex = se(k)
                    Cells(i + 1, 1).Interior.ColorIndex = se(k)
                    Cells(j, 1).Interior.ColorIndex = se(k)
                    Cells(j + 1, 1).Interior.ColorIndex = se(k)
                    k = k + 1
                End If
            End If
        Next
    Next
End Sub
不知道符合不符合

跳转到最佳答案楼层

那么的帅

数据太少，不好测试。

飞天小猪

[em01]

南粤风采

已上传供测试数据。里面的数据可以随意更改。

我不知道呀

支持！！！

白开水的微笑

DP4wcBC3.rar (10.52 KB, 下载次数: 1)

2010-7-25 01:20 上传

点击文件名下载附件
求助：快速查询A列相同差几之数

Sub 标色()
Dim se(1 To 5) As Integer
se(1) = 3
se(2) = 7
se(3) = 38
se(4) = 64
se(5) = 33
k = 1
    Range("a1:a" & [a65536].End(xlUp).Row).Interior.ColorIndex = xlNone
    For i = 1 To [a65536].End(xlUp).Row Step 3
        For j = i + 3 To [a65536].End(xlUp).Row Step 3
            If Cells(i, 1) = Cells(j, 1) Then
                If Abs(Cells(i + 1, 1) - Cells(j + 1, 1)) = [c1] Then
                    Cells(i, 1).Interior.ColorIndex = se(k)
                    Cells(i + 1, 1).Interior.ColorIndex = se(k)
                    Cells(j, 1).Interior.ColorIndex = se(k)
                    Cells(j + 1, 1).Interior.ColorIndex = se(k)
                    k = k + 1
                End If
            End If
        Next
    Next
End Sub
不知道符合不符合

那么的帅

Ccib5qze.rar (11 KB, 下载次数: 1)

2010-7-25 01:24 上传

点击文件名下载附件
求助：快速查询A列相同差几之数

飞天小猪

[em01]

白开水的微笑

那么的帅这么晚还不休息

yytc

[em02]看不明白