简单点,只写代码,自己看懂就可以了
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)
本文将展示如何利用VBA编写自动填充函数,以提高Excel操作效率,具体通过一个实例演示了如何创建一个函数来实现单元格范围的自动填充,简化重复性任务。
简单点,只写代码,自己看懂就可以了
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)
1237

被折叠的 条评论
为什么被折叠?
