可以使用以下代碼將Excel表中的數據賦值給數組：
Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object
Dim arrData As Variant
Dim i As Long
Dim numRows As Long
' 創建Excel對象
Set xlApp = CreateObject("Excel.Application")
' 打開Excel文件
Set xlWorkbook = xlApp.Workbooks.Open("C:\path\to\excel_file.xlsx")
' 選擇工作表
Set xlWorksheet = xlWorkbook.Sheets("Sheet1")
' 獲取數據范圍的行數和列數
numRows = xlWorksheet.UsedRange.Rows.Count
' 將數據范圍的值賦值給數組
arrData = xlWorksheet.Range("A1:B" & numRows).Value
' 關閉Excel文件
xlWorkbook.Close
' 退出Excel應用程序
xlApp.Quit
' 在數組中循環輸出數據
For i = 1 To numRows
Debug.Print arrData(i, 1) ' 第一列的數據
Debug.Print arrData(i, 2) ' 第二列的數據
Next i
請將上述代碼中的 “C:\path\to\excel_file.xlsx” 替換為你實際的Excel文件路徑，“Sheet1” 替換為你實際的工作表名稱。該代碼將Excel文件中從A1單元格開始到B列最后有數據的單元格的數值賦值給名為 arrData 的二維數組。你可以根據自己的需要修改代碼以適應實際情況。
