VBA代码 数组写入单元格2025年3月18日 10:15
Function ArrToRange(arr, rng As Range)
'二维数组输出到单元格区域 rng为左上角
rng.Resize(UBound(arr) - LBound(arr) + 1, UBound(arr, 2) - LBound(arr, 2) + 1) = arr
End FunctionFunction ArrToRange(arr, rng As Range)
'二维数组输出到单元格区域 rng为左上角
rng.Resize(UBound(arr) - LBound(arr) + 1, UBound(arr, 2) - LBound(arr, 2) + 1) = arr
End Function
全部回复（0）