VBA 带偏移列的列表框

Question

我正在使用以下代码填充列表框。 ListBox 的第 1 列来自我的工作表的 F 列，而 ListBox 的第二列来自下一列。但我想让第二个 ListBox 列来自工作表的 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

VBA 带偏移列的列表框

VBA ListBox with Offset Columns

vba

listbox

offset

userform