vba循环遍历范围返回列值

Question

在这里结束。只是尝试在范围内循环行时返回特定列（4）的值。这是我到目前为止所拥有的。

 With sht
       'Iterate over rows in used range        
        For Each loopRow In workRange.Rows:            
           myVariable = .Cells(loopRow, 4).Value                
           MsgBox myVariable

        Next loopRow

End With

Answer 1

目前还不清楚你正在尝试做什么，但这里我通常喜欢用VBA遍历Excel中的行和列，包括行和列偏移计数器变量。此示例将列D中的单元格打印到即时窗口。

鉴于此：

此代码标识感兴趣的值：

Public Sub GetCol4()
Dim Rng As Excel.Range, rowOffset As Long
    Set Rng = ThisWorkbook.Worksheets("Sheet1").Range("A1")
    Do Until IsEmpty(Rng.Offset(rowOffset, 0).Value)
        Debug.Print Rng.Offset(rowOffset, 3).Value
        rowOffset = rowOffset + 1
    Loop
End Sub

...并将结果保留在立即窗口中：