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

目前尚不清楚你想要做什么，但在这里是如何我通常喜欢穿越的行和列在Excel使用VBA，行和列偏移计数器变量。此示例将打印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 

...和结果被留在即时窗口：