VBA ListBox with Offset Columns

Question

次のコードを使用してListBoxにデータを入力しています。リストボックスの列1は、ワークシートの列Fから来て、リストボックスの2番目の列は、次の列から来ています。しかし、私はその2番目のリストボックスの列は、ワークシートの列Dから来るようにしたい（左2）。そして、私はちょうど私が望むようにオフセット作業を行うことはできません。

Private Sub UserForm_Initialize() 

    Dim dic As Object 
    Dim rng As Range 
    Dim ky As Variant 

    Set dic = CreateObject("Scripting.Dictionary") 

    Set rng = Sheet4.Range("F2") 

    Do 
     If Not dic.exists(rng.Value) Then 
      dic.Add rng.Value, rng.Offset(, 1).Value 
     Else 
      dic(rng.Value) = dic(rng.Value) + rng.Offset(, 1).Value 
     End If 
     Set rng = rng.Offset(1) 
    Loop Until rng.Value = "" 

    For Each ky In dic.keys 
     With BWListBox3 
      .AddItem 
      .List(.ListCount - 1, 0) = ky 
      .List(.ListCount - 1, 1) = Application.Text(dic(ky), "[h]:mm") 
     End With 
    Next ky 

End Sub 

Answer 1

2左側にありますか？私を与え

If Not dic.exists(rng.Value) Then 
     dic.Add rng.Value, rng.Offset(, -2).Value 
    Else 
     dic(rng.Value) = dic(rng.Value) + rng.Offset(, -2).Value 
    End If