对筛选后显示的行写序号

准提部林

Sub TEST_A1()
Dim Cn&, A As Range, R&, N&
Cn = [e2]
With ActiveSheet
     If .FilterMode = False Then Exit Sub
     R = Cells(Rows.Count, "c").End(3).Row
     If R < 5 Then Exit Sub
     With Range("d5:d" & R)
          For Each A In .SpecialCells(xlCellTypeVisible)
              N = N + 1
              A = N
              If N = Cn Then Exit Sub
          Next
     End With
End With
End Sub

准提部林

代碼審核中, 看圖片

天地一相

准提部林 发表于 2023-2-12 16:23
代碼審核中, 看圖片

感谢！看图片感觉，你写的这个应该就是我想要的。能减少掉我现在为了实现这个功能多加了上色，按颜色排序，最后清除上色，这3个辅助步骤。

天地一相

准提部林 发表于 2023-2-12 16:21
Sub TEST_A1()
Dim Cn&, A As Range, R&, N&
Cn = [e2]

谢谢。 R = Cells(Rows.Count, "c").End(3).Row 这句里，为什么是C而不是D，有什么特别的用途吗？

jz_l

天地一相

准提部林 发表于 2023-2-12 16:21
Sub TEST_A1()
Dim Cn&, A As Range, R&, N&
Cn = [e2]

感谢，测试了，成功。