简单点,只写代码,自己看懂就可以了
Function TstRangEAsPara(MyRange As Range, RowNum As Integer, ColNum As Integer) as variant
Dim MyArr()
MyArr = MyRange
TstRangeAsPara = MyArr(ColNum,ColNum)
End Function
调用 TstRangeAsPara(E4:Z900,2,13)
简单点,只写代码,自己看懂就可以了
Function TstRangEAsPara(MyRange As Range, RowNum As Integer, ColNum As Integer) as variant
Dim MyArr()
MyArr = MyRange
TstRangeAsPara = MyArr(ColNum,ColNum)
End Function
调用 TstRangeAsPara(E4:Z900,2,13)