vbaループスルーの範囲内の行を返す列の値

Question

ここで知恵の終わりです。 rangeの行をループしながら、特定のcolumn（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 

...との結果がイミディエイトウィンドウに残されている：