任何人都可以帮助我找到在过滤器应用于 Excel 表后第 n 个元素的绝对行号。
例如，我已启用过滤器并具有可见范围的数据元素。现在，当没有打开过滤器时，此过滤范围中的第 20（第 n）行可能是第 60 行（绝对意义上）。有没有办法使用 VBA 找到绝对行号？
【问题讨论】：
最简单的方法是特殊细胞。见下文：
Sub test()
Dim i As Integer, j As Integer, k As Integer
Dim Report As Worksheet
Set Report = Excel.ActiveSheet ' Store the current worksheet in a variable (always a good idea)
Dim visRng As Range ' Creating a range variable to store our table, excluding any rows that are filtered out.
Set visRng = Report.UsedRange.SpecialCells(xlCellTypeVisible) ' Select only rows within the used range that are visible.
Dim r As Range
For Each r In visRng.Rows ' Loop through each row in our visible range ...
MsgBox (r.Row) ' ... and retrieve the "absolute" row number.
Next
End Sub
Tom 声称这种方法行不通，但我很确定它可以满足您的要求。示例：
这是我的原始测试表 - 未经过滤，因此您可以看到我们在做什么。
然后我们在表格中间某处过滤几个值...
现在，当我们运行我在上面发布的脚本时，我们的消息框将显示每个未过滤行的“绝对”行号。结果是 1、3、4、5 和 7。
【讨论】：
作为我建议的功能
Function RowNum(Target As Range) As Long
RowNum = Target.Row
End Function
通过输入单元格=RowNum(E9) 使用。如果您想要相对于表格开始的行并且您的表格从-say-row 21开始，只需从结果中减去它（您可以使用相同的函数来查找表格开始或课程的行）......例如=rownum(A2)-rownum($A$1) ...注意表头的绝对符号！
如果您不喜欢这个函数，您可以使用 SelectionChange 事件在消息行中显示所选单元格的行号（可选地取决于工作表中某处的“调试标志”）。
Tne 非 VBA 方法是使用 CELL 公式......例如=CELL("row",A1)
【讨论】：
如果在第 n 个条目之后还有其他隐藏单元格，@Lopside 提出的答案将不起作用。然后将它们添加到绝对位置。
这会起作用，您必须在脚本中自己更改 n。改变应该不难。如果您对此有任何疑问，请随时提问。 (;
Sub absoluteRowID()
Dim RowCount, hiddenRows As Integer
'relative position n
n = 5
i = 0
Do While i < n
i = i + 1
If ThisWorkbook.Sheets(1).Rows(i).EntireRow.Hidden Then
'if there is a hidden row, position is incremented
n = n + 1
End If
'if there is no hidden row, nothing happens
Loop
MsgBox (i)
End Sub
HTH
【讨论】：