为什么这段代码没有用数组填充我的组合框？

如何解决为什么这段代码没有用数组填充我的组合框？

Sub Auto_open()

NumElements = Range(.Range("D6"),.Range("D" & .Rows.Count).End(xlUp))

Dim arr(),i As Long
Redim arr(1 to NumElements,1 to 2)
    With Worksheets(5)
    For i=1 to NumElements
        arr(i,1)=cells(4+i,4)     ' column D
        arr(i,2)=cells(4+i,5)     ' column E
    Next 
    Me.ComboBox1 = arr
    End With

End Sub

我想要做的是创建一个组合框，该组合框将由由不同工作表中的两列组成的数组填充。

更新：

Sub Auto_open()
With Worksheets(5)
NumElements = Range(.Range("D6"),1 to 2)
    For i=1 to NumElements
        arr(i,5)     ' column E
    Next 
    Me.ComboBox = arr
    End With
End Sub

更新 2：

Sub Auto_open()

With Worksheets(5)
    Dim erg As Range: Set erg = .Range(.Range("D6"),.Range("D" & .Rows.Count).End(xlUp)).Resize(,2)
    Dim arr As Variant: arr = erg.Value
    Worksheets(1).ComboBox1 = arr
    End With

End Sub

我现在知道了，但它告诉我组合框行上的类型不匹配。

解决方法

用多列范围填充组合框

 function App() {
 
const [componentFolder,setComponentFolder] = React.useState("default")

const Home = React.lazy(() => import("./components/" +componentFolder+ "/Home"));
  return (
    <div className="App">
      <Suspense fallback="laoding">
        <Home></Home>
      
      </Suspense>

    </div>
  );
}