如何用VBA得到E筛选后的行号

您可以使用以下代码来获取E列筛选后的行号：

Sub GetFilteredRows()
    Dim lastRow As Long
    Dim filteredRows() As Long
    Dim i As Long, j As Long
    
    lastRow = ActiveSheet.Cells(Rows.Count, "E").End(xlUp).Row
    
    ReDim filteredRows(1 To lastRow)
    
    j = 1
    
    For i = 1 To lastRow
        If Not ActiveSheet.Rows(i).Hidden Then
            filteredRows(j) = i
            j = j + 1
        End If
    Next i
    
    ReDim Preserve filteredRows(1 To j - 1)
    
    MsgBox "Filtered rows: " & Join(filteredRows, ", ")
End Sub

这段代码将获取E列中筛选后的行号，并在消息框中显示这些行号。

相关问题

vba获取最后一行行号

你可以使用以下VBA代码来获取最后一行的行号：

Dim lastRow As Long
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

这个代码假定你想要获取第一列的最后一行的行号。如果你想要获取其他列的最后一行的行号，只需要将代码中的第二个参数（即数字1）替换成你想要的列号即可。

vba如何对行号进行遍历

### 回答1：
在VBA中，可以使用For循环来对行号进行遍历。下面是一个简单的示例，演示如何使用For循环遍历Excel工作表中的所有行：

Sub TraverseRows()
    Dim lastRow As Long
    Dim i As Long
    
    '获取最后一行的行号
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

    '循环遍历每一行
    For i = 1 To lastRow
        '在这里编写需要执行的代码
        Debug.Print "当前行号为：" & i
    Next i
End Sub

在上面的示例中，我们首先使用`ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row`获取最后一行的行号。然后使用For循环从第1行到最后一行依次遍历每一行，并在每一次循环中执行需要执行的代码。在本例中，我们仅仅是打印出当前行号，你可以根据自己的需求编写需要执行的代码。

### 回答2：
在VBA中，我们可以使用For循环来遍历行号。下面是一个示例代码：

Sub 遍历行号()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要进行遍历的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 获取工作表中最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 使用For循环遍历行号
    For i = 1 To lastRow
        ' 在这里执行你要进行的操作
        ' 例如，显示当前行号
        MsgBox "当前行号为：" & i
    Next i
End Sub

在上面的代码中，我们首先设置要进行遍历的工作表 `ws`，然后使用 `End(xlUp)` 方法来获取最后一行的行号 `lastRow`。接下来，我们使用For循环从第1行遍历到最后一行，其中 `i` 表示当前的行号。在循环体内，你可以执行你需要进行的操作，例如在这里我们使用 `MsgBox` 函数来显示当前的行号。

你可以根据实际需要修改代码中的工作表名称、要执行的操作以及遍历的范围。

### 回答3：
在VBA中，可以通过使用循环来遍历行号。

一种常用的方法是使用For循环。具体步骤如下：

1. 首先，确定要遍历的行数范围。可以使用`Rows.Count`属性获取工作表中的总行数。

2. 使用For循环来遍历行数。可以使用变量i来表示当前的行号。

3. 在循环中，可以使用i来操作当前行的数据。例如，可以通过`Cells(i, ColumnIndex)`来获取或修改当前行的单元格数据。

4. 循环可以在需要的地方进行终止。例如，可以使用`Exit For`语句来提前结束循环。

下面是在VBA中使用For循环对行号进行遍历的示例代码：

Sub TraverseRows()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取工作表中的总行数
    lastRow = ActiveSheet.UsedRange.Rows.Count
    
    ' 遍历行号
    For i = 1 To lastRow
        ' 在这里可以对每一行进行操作
        ' 例如，获取或修改当前行的单元格数据
        ' Cells(i, ColumnIndex).Value = ...
        
        ' 输出当前行号
        MsgBox "当前行号：" & i
    Next i
End Sub

以上示例代码会遍历工作表的所有行号，并通过弹出窗口显示当前行号。

当然，除了For循环外，还可以使用其他循环结构，如Do While循环或Do Until循环，来遍历行号。具体使用哪种循环结构，可以根据具体情况和需要来决定。