excel vba中自定义一个函数，该函数需要用到函数所在的那个单元格的列号，如函数写在b5单元格

下面的函数返回单元格地址，给你参考下
Function myAddr()
myAddr?=ActiveWorkbook.Application.ThisCell.Address
End?Function将返回运行自定义函数的单元格的地址
所以可以用
Dim rC As Range
Set rC=ActiveWorkbook.Application.ThisCell这样rC的行/列号就可以使用了,注意这样的自定义函数是可以随意拖动的。
楼主当然明白，由于是属于VBA的自定义函数，需要触发才能更新，按F9或，在Excel设定为自动重算的前提下有单元格的数据发生变化而触发重算时或，在Excel设定为保存时重算并且操作者执行了保存是，才会更新自定义函数的数据。