在autofilter VBA之后查找首行和末行索引

，可以通过以下步骤实现：

1. 首先，使用VBA代码将自动筛选应用于数据表格。可以使用AutoFilter方法来实现，例如：

ActiveSheet.Range("A1:D10").AutoFilter Field:=1, Criteria1:="Value"

上述代码将在A1:D10范围内的第一列应用自动筛选，并将筛选条件设置为"Value"。

1. 接下来，可以使用SpecialCells方法找到筛选后的数据范围。例如，要找到首行索引，可以使用以下代码：

Dim firstRow As Long
firstRow = ActiveSheet.Range("A2:D10").SpecialCells(xlCellTypeVisible).Cells(1).Row

上述代码将返回筛选后可见单元格范围中的第一个单元格所在的行号。

1. 同样地，可以使用类似的方法找到末行索引。例如：

Dim lastRow As Long
lastRow = ActiveSheet.Range("A2:D10").SpecialCells(xlCellTypeVisible).Cells.SpecialCells(xlCellTypeVisible).Cells.Count

上述代码将返回筛选后可见单元格范围中的最后一个单元格所在的行号。

需要注意的是，上述代码中的范围"A2:D10"应根据实际情况进行调整，以适应数据表格的范围。

这种方法可以用于在自动筛选后查找首行和末行索引，以便进一步处理筛选后的数据。