vba将listbox转为数组

可以使用以下代码将 ListBox 转换为数组：

Dim arr() As Variant
Dim i As Long

ReDim arr(ListBox1.ListCount - 1)

For i = 0 To ListBox1.ListCount - 1
    arr(i) = ListBox1.List(i)
Next i

其中，`ListBox1` 是你要转换的 ListBox 的名称。转换后的数组 `arr` 中的元素与 ListBox 中的元素一一对应。