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 

...和結果被留在即時窗口：