循环行范围 - 我怎样才能得到一个特定的单元格？

Question

With Worksheets("Tripdata")
    For filtercount = 1 To 1
        Worksheets("Tripdata").Range("A1").AutoFilter Field:=4, Criteria1:=stationidentify(filtercount, 1)
        For Each rowIndex In .UsedRange.Rows
            If (rowIndex.Hidden) Then
            'nothing
            Else
                If (firstpass) Then
                    firstpass = False
                Else
                    MsgBox rowIndex(2, 2)
                    test = test + 1
                    Dim currentstat As Double, finalstat As Double
                    currentstat = Worksheets("Tripdata").Cells(rowIndex, 3).Value
                    finalstat = Worksheets("Tripdata").Cells(rowIndex, 7).Value

The tripdata visual look - I wanna somehow get the names on the fourth and seventh cells

您好，我正在尝试使用上面的循环获取特定的单元格。我认为 rowIndex 是 .Cells(row,column); 上的 rownumber但似乎不是。我正在尝试使用过滤器循环访问数据。
谁能帮我解决这个问题？
提前致谢。

Answer 1

您正在处理单行，因此如果直接处理 rowIndex，任何 Cells(row, column) 引用都应为 1，如果引用一个单元格，则应为 rowIndex.row工作表。

'put these outside the loop
Dim currentstat As Double, finalstat As Double
For Each rowIndex In .UsedRange.Rows
...
Else
    MsgBox rowIndex(1, 2)  'column B value within rowIndex
    MsgBox rowIndex.cells(1, 2)  'column B value within rowIndex
    test = test + 1
    currentstat = Worksheets("Tripdata").Cells(rowIndex.row, 3).Value
    finalstat = Worksheets("Tripdata").Cells(rowIndex.row, 7).Value
    'you're inside a With ... End With block so these are the same
    currentstat = .Cells(rowIndex.row, 3).Value  'column C value within rowIndex
    finalstat = .Cells(rowIndex.row, 7).Value  'column G value within rowIndex
    debug.print currentstat
    debug.print finalstat

循环行范围 - 我怎样才能得到一个特定的单元格？

Loop with the row range - How can I get a specific cell?

vba

excel

loops

excel-2007