获取筛选后显示单元格的真实行数

liulang0808

Sub 按钮1_Click()
    r = Cells(Rows.Count, 5).End(3).Row
    Set d = CreateObject("scripting.dictionary")
    y = [e3]
    On Error Resume Next
    i = 0
    For Each Rng In Range("E5:E" & r).SpecialCells(xlCellTypeVisible)
        i = i + 1
        Rng.Interior.ColorIndex = 3
        d(Rng.Address) = ""
        If i = y Then
            If y > 20 Then
                Application.Goto Range(d.keys()(y - 5)).Offset(0, -4), True
            End If
            Exit For
        End If
    Next

End Sub

liulang0808

这次不知道猜的对不对，供参考。。。。。

天地一相

liulang0808 发表于 2022-11-18 13:15
这次不知道猜的对不对，供参考。。。。。

先谢谢。还是不对呀。我反复说了呀，按单元格内容要求给相应个数的单元格着色这个我有，我回帖截图里就是呀。我的难题在，因为上色的单元格个数多了后，下端会没显示在屏幕上。所以我想如何能知道最后一个色块或者就是筛选列显示的第N个（单元格的数字）单元格的真实行数，然后赋值给屏幕显示到哪一行的语句。

天地一相

liulang0808 发表于 2022-11-18 13:15
这次不知道猜的对不对，供参考。。。。。

sorry。才发现，是对的！！！显示出来啦。谢谢啦

perfect131

参考 11 楼:https://club.excelhome.net/forum ... 19&pid=11092117

天地一相

perfect131 发表于 2022-11-18 14:27
参考 11 楼:https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1634719&pid=11092117

谢谢，抽空理解下内容。