Cacher is the code snippet organizer for pro developers

    Set objSheet = ThisWorkbook.Worksheets("Sheet1")
    With objSheet
        '--- 明細出力 ---
        .Range(.Cells(llRowHead + 1, 1), .Cells(llRowHead + llRecordCNT, llFieldsCNT)) = vvArray
    End With

Set objSheet = ThisWorkbook.Worksheets("公安局刑事課")

    '--- データが入力されている最大行・列を取得する ---
    If F_GetRowMax(objSheet, , lRowMax, sMsg) = False Then
        If Len(sMsg) <= 0 Then sMsg = "シート(" & objSheet.Name & ")からの最大行の取得に失敗しました"
        GoTo Sub_Exit
    End If
    If F_GetColMax(objSheet, , lColMax, sMsg) = False Then
        If Len(sMsg) <= 0 Then sMsg = "シート(" & objSheet.Name & ")からの最大列の取得に失敗しました"
        GoTo Sub_Exit
    End If
    
    '--- シートに入力された値を配列に取得する ---
    If F_GetArrayRange(objSheet, lRowMax, lColMax, , , vArray, sMsg) = False Then
        If Len(sMsg) <= 0 Then sMsg = "シート(" & objSheet.Name & ")からのデータの取得に失敗しました"
        GoTo Sub_Exit
    End If
    
    '--- 取得したデータの確認 ---
    For i = 1 To UBound(vArray, 1)
        For j = 1 To UBound(vArray, 2)
            Debug.Print vArray(i, j), ;
        Next j
        Debug.Print ""
    Next i

Sub_Exit:
On Error Resume Next

	'--- 後片付け ---
    Set objSheet = Nothing