【VBA】利用Range聲明Array（一維/二維）

【說明】

B2開始到B?（中間不能有空格），定義一維數組Arr_approver()

    Dim R_sh As Worksheet
    Set R_sh = ThisWorkbook.Sheets("result") 
    
    approver_row = R_sh.Range("B2").End(xlDown).Row        
    Arr_approver = R_sh.Range("B2", Cells(approver_row, 2))
    
    For k = LBound(Arr_approver) To UBound(Arr_approver)
        key = Arr_approver(k, 1)
        ifFoundRole = FindRole(key)
        If ifFoundRole = "Y" Then
            R_sh.Cells(k + 1, A_ROLE1) = Arr_Role(MAX_COUNT_ROLE - 3)
            R_sh.Cells(k + 1, A_ROLE2) = Arr_Role(MAX_COUNT_ROLE - 2)
            R_sh.Cells(k + 1, A_ROLE3) = Arr_Role(MAX_COUNT_ROLE - 1)
            R_sh.Cells(k + 1, A_ROLE4) = Arr_Role(MAX_COUNT_ROLE)
        End If
    Next

例子：二維數組

從B2（左上角）到？？（右下角）連續無空格的區域，聲明二維數組Arr()

Public Arr

Sub Test(sheetName As String)

R = List_sh.Range("B2").End(xlDown).Row
C = List_sh.Cells(1, Columns.Count).End(xlToLeft).Column

Arr = List_sh.Range("B2", Cells(R, C))

a = Arr(i,j)