Question

excel vba隐藏后查找内容填充颜色

1。K:AL列
2。从最后从上查找
3。以显示为准来查找（不管怎么样隐藏，都是如图所示查找）
看图示

Answer 1

下面的代码处理K列数据，你可以参考：

Option Explicit
Sub ygb()
    Dim n, i, i1, i2
    n = Cells(65536, "K").End(xlUp).Row 'K列最后一个非空单元格，此函数能忽略隐藏单元格
    i1 = 1
    Do While i1 < 12
        If Rows(n).Hidden = False Then i1 = i1 + 1
        n = n - 1
    Loop
    i2 = n '倒数第12行
    n = n - 1
    Do While i1 < 13
        If Rows(n).Hidden = False Then i1 = i1 + 1
        n = n - 1
    Loop
    i1 = n + 1 '倒数第13行
    If Cells(i1, "K") = Cells(i2, "K") Then
        Cells(i1, "K").Interior.ColorIndex = 3'填充红色
        Cells(i2, "K").Interior.ColorIndex = 3'填充红色
    End If
End Sub

追问

可不可以修改
1。K：AL例
2。第12和13单元相同时，它没有填充红色，
3。第14至18单元不同时，它也没有填充青色

追答

我的机器上执行能正确填充红色，你执行时如果没有填充，可能是你的数据和拷屏的不同，你F8单步执行跟踪一下就明白问题在哪里，也就知道了怎么修改。

等你调试好K列代码之后，增加处理其它列只需要适当增加语句即可。

青色填充你可以举一反三自己做，我没有写是不明白说的“完全不相同”是什么意思，所有都相同才不填充吗，只要有一个不相同就填充吗，多种理解。

希望你试着自己编写代码，遇到问题再说。

追问

试了,
只填充了 Cells(i1, "K").Interior.ColorIndex = 4这个颜色
而这个Cells(i2, "K").Interior.ColorIndex = 3它不填充

K:AL列
14/15/16/17/18/19单元格里面的内容它们之间都不相同(也就是说这6个单元格内容都不一样)

追答

你F8单步执行，看看是否到了这一句，看看i2的值是多少？（鼠标放在i2上就能显示）

追问

只是填充了最后12单元（现在i1是最后12单元了，而i2被隐藏了）

追答

拷屏你的数据，请保留行、列标题