使用筛选的数据填充excel vba列表框

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

Dim rng As Range
Set rng = ws.Range("A1:C10")

Dim data As Variant
data = rng.Value

Dim i As Long
For i = 1 To UBound(data, 1)
    Me.ListBox1.AddItem data(i, 1) '假设要将第一列数据填充到列表框中
Next i

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    Dim rng As Range
    Set rng = ws.Range("A1:C10")

    Dim data As Variant
    data = rng.Value

    Dim i As Long
    For i = 1 To UBound(data, 1)
        Me.ListBox1.AddItem data(i, 1) '假设要将第一列数据填充到列表框中
    Next i
End Sub