如何获取范围内的范围值-Howtogetthevalueofarangewithinarange

2  

You can always retrieve the value in a specific cell like U10 with:

您始终可以使用以下命令检索U10等特定单元格中的值：

Range("U10").Value

whether the row is hidden or not.

该行是否隐藏。

EDIT#1:

编辑＃1：

Here is a little example that loops down thru column A of an AutoFiltered table. It looks for the third visible row (not including the header row):

这是一个通过AutoFiltered表的A列循环的小例子。它查找第三个可见行（不包括标题行）：

Sub GoDownFilter()
    Dim rLook As Range, r As Range
    Set rLook = Intersect(ActiveSheet.UsedRange, Range("A:A").Cells.SpecialCells(xlCellTypeVisible))
    rLook.Select
    K = 0
    For Each r In rLook
        If K = 3 Then
            r.Select
            MsgBox "The third visible row has been selected"
            Exit Sub
        End If
        K = K + 1
    Next r
End Sub

2  

I think you need to choose if you want to get a specific cell like:

我认为您需要选择是否要获得特定的单元格，如：

Range("U10").Value

范围（ “U10”）。价值

Or a relative cell using something like

或者使用类似的东西的相对单元格

RangeINamed.SpecialCells(xlCellTypeVisible)(2,3).Value

Or

要么

RangeINamed.SpecialCells(xlCellTypeVisible)(2,3).Address 'To see if you are getting it right

EDIT:

编辑：

A complete code to Filter and Iterate.

一个完整的过滤和迭代代码。

Sub Filter()
Dim tableRange As Range, var, actualRow As Integer, lastRow As Integer

Set tableRange = Range("PUT_THE_TABLE_RANGE_HERE")

' Filter 
With tableRange
    Call .AutoFilter(5, "SPECIFIC_FILTER")
End With

Set f = tableRange.SpecialCells(xlCellTypeVisible)

With tableRange
    Call .AutoFilter(5)
End With

For Each var In f.Cells.Rows
    actualRow = var.Row
    If actualRow <> 1 Then
        ' Do something
    End If
Next
End Sub