vba - 如何访问过滤列表中的范围以检索值？ VBA

Question

我正在尝试访问过滤列表中 C(Number):D(Number) 中的值，但是我似乎做错了什么，因为 MsgBox 从未出现。

'Filter only numeric values 
With MaterialListSheet
        .AutoFilterMode = False
        .Range("B1").AutoFilter Field:=1, Criteria1:="0*"
    End With

Set rangeInventory = InventorySheet.Range("N1:N" & Rows.Count)
' I had Set rangeMaterialList = MaterialListSheet.Range("B1:B" & Rows.Count) in the beginning but I realized If I need C and D i'm only selecting B 

    Set rangeMaterialList = MaterialListSheet.Range("B1:F" & Rows.Count)

    For Each CellML In rangeMaterialList.SpecialCells(xlCellTypeVisible)
        BomCodesToSplit = CellML.Range("C" & Rows.Row & ":D" & Rows.Row).Values
        MsgBox BomCodesToSplit
        For Each CellI In rangeInventory.SpecialCells(xlCellTypeVisible)

        Next CellI

Next CellML

试过这个但没有运气:

BomCodesToSplit = MaterialListSheet.Range("C" & Rows.Row & ":D" & Rows.Row).Values

我想选择

C1:D1
C2:D2
C3:D3
.
.
.

意思是这样的，所以它根据循环索引选择它

Cn:Dn

在其他一些编程语言中，我会使用循环的索引，但由于我是 VBA 新手，我不知道如何做到这一点。

如何做到这一点？

Answer 1

不完全确定您在做什么，但您可以使用迭代变量属性。

在 for each循环迭代某个范围最好使用 Range 类型变量来获取智能感知

例子

Dim cell as Range
for each cell in Range("A1:A10")
    debug.? cell.Value, cell.Address, cell.Row, cell.Column
next

注意:当您键入 cell.你会得到一个智能感知，它只列出你正在使用的对象当前可用的属性。