<Sheet to Array> 「シート」を「配列」へ

'*****************************************************
'* 「シート」を「配列」に入れるプロシージャ（2次元配列保証）
'* SheetName：シート名前
'* myArray：出力される配列（参照渡し）
'* RejectRw=1 とすると頭の1行目を除いた表が配列に入る
'* 1セル・1行・1列でも常に 2次元配列
'*****************************************************
Sub sheet_to_array(ByVal SheetName As String, ByRef myArray As Variant, Optional RejectRw As Long = 0)
    Dim ws As Worksheet
    Dim Target As Range
    Dim r As Long, c As Long
    Dim i As Long, j As Long
    Dim v As Variant
    
    Set ws = Worksheets(SheetName)
    Set Target = ws.UsedRange
    
    ' RejectRw が指定されていれば最初の行数を除外
    If Target.Rows.Count > RejectRw And RejectRw > 0 Then
        Set Target = Target.Resize(Target.Rows.Count - RejectRw).Offset(RejectRw)
    End If
    
    ' 範囲が空の場合は1x1の配列にする
    If Target.Cells.Count = 0 Then
        ReDim myArray(1 To 1, 1 To 1)
        myArray(1, 1) = ""
        Exit Sub
    End If
    
    ' 値を取得
    v = Target.Value
    
    ' 1セルだけの場合
    If Target.Cells.Count = 1 Then
        ReDim myArray(1 To 1, 1 To 1)
        myArray(1, 1) = v
        Exit Sub
    End If
    
    ' 複数セルの場合だが、1行または1列で1次元配列になっている場合
    If Target.Rows.Count = 1 Or Target.Columns.Count = 1 Then
        r = Target.Rows.Count
        c = Target.Columns.Count
        ReDim myArray(1 To r, 1 To c)
        
        For i = 1 To r
            For j = 1 To c
                myArray(i, j) = Target.Cells(i, j).Value
            Next j
        Next i
        Exit Sub
    End If
    
    ' 通常の複数行・複数列
    myArray = v
End Sub

Dim arr() As Variant

' シートを配列に入れる、テストプロシージャ。
Private Sub test､シートを配列に入れる()
    ' (SheetName, ByRef arr, Optional RejectRw = 0)
    Call sheet_to_array("TEST", arr)
End Sub

Dim arr() As Variant

' シートを配列に入れる、テストプロシージャ、見出しを除く。
Private Sub test､シートを配列に入れる1()
    ' (SheetName, ByRef arr, Optional RejectRw = 0)
    Call sheet_to_array("TEST", arr, 1)
End Sub