求在Excel里面用VBA做函数.

题目

求在Excel里面用VBA做函数.
情况是这样的,
有两组数,A列和B列,A列是原始数据,B列是要求的关于A的函数：
具体B列函数的要求是：
A列数除以72,得到整数倍数 i 和余数 k ,而这个k的不同,也构成一个分段函数：
如果k

答案

Public Function FD(rng As Range)
i = Fix(rng.Value / 72)
k = rng.Value Mod 72
If k