Function ArrToRange(arr, rng As Range)
    '二维数组输出到单元格区域 rng为左上角
    rng.Resize(UBound(arr) - LBound(arr) + 1, UBound(arr, 2) - LBound(arr, 2) + 1) = arr
End Function