对筛选后显示的行写序号

天地一相

感谢帮助！详见截图附件。

准提部林

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

jz_l

蓝桥玄霜

序号的例子：

准提部林

篩選後序號//D5//公式
=SUBTOTAL(3,C$4:C4)
下拉

天地一相

准提部林 发表于 2023-2-12 15:31
篩選後序號//D5//公式
=SUBTOTAL(3,C$4:C4)
下拉

谢谢。不要公式，几千个拉好半天。

天地一相

蓝桥玄霜 发表于 2023-2-12 13:40
序号的例子：

谢谢。 问题1：测试没过，对象不支持该属性和方法。问题2：筛选后写多少个序号需[E2]内设定，你的代码没这个设置。

准提部林

天地一相 发表于 2023-2-12 15:41
谢谢。不要公式，几千个拉好半天。

1) 序號只填充D列???
2) 須一次處理多表???
3) 表格資料多少?  格式固定?

篩選區...須用到range屬性, 無法用數組, 不一定比公式快~~公式是可以一次填充再粘成值

說明太簡略~資料太少~不要老拿代碼讓別人去猜

准提部林

若行數不多
或許用"定位"空格, 再逐一填數字???

天地一相

准提部林 发表于 2023-2-12 15:56
1) 序號只填充D列???
2) 須一次處理多表???
3) 表格資料多少?  格式固定?

谢谢。是按E2内的数字个数，在D4之下筛选后显示的列里写入相应个数的序号。我附件里代码无法处理筛选状态后的写入。我现在是按E2内容对筛选后显示的上色单元格，然后清除筛选状态，上色单元格排序，这样上色的单元格就在上部，数量也刚好是E2内的数值，然后我用目前的序号代码写入。求助是想获得一句代码，直接能在显示行写序号，这样就不用上色这步骤了。

天地一相

准提部林 发表于 2023-2-12 15:59
若行數不多
或許用"定位"空格, 再逐一填數字???

谢谢。不会出现行数不够的情况。

tanglf188

还有一种简单的思路就是对需要显示的行直接编号（跳过筛选掉的），筛选后整体操作方便，按你的要求相对麻烦一些。