作者：乔山办公网日期：
返回目录：excel表格制作
Public Function FD(rng As Range)
i = Fix(rng.Value / 72)
k = rng.Value Mod 72
If k <= 40 Then
FD = 300 * i + (k / 40) * 200
ElseIf 40 < k <= 46 Then
FD = 300 * i + 200
ElseIf 46 < k <= 66 Then
FD = 300 * i + 200 + ((k - 40) / 20) * 100
Else
FD = 300 * i + 300
End If
End Function
使用
b1=FD(a1)
在C列前添加一空白列，原C列右移
Columns(3).EntireColumn.Insert
如图：C4=IF(B4<>"",$F$1,"")
我把它往百下拖动几格，下方的格也有了函数，如C5=IF(B5<>"",$F$1,"")等
但我想让C4下的所有单元格都有相应的函度数，手工拖动就不实际了，所以想在VBA中加入这个功能。
除了C列需问要这样外，D列也要，如D4下所有单元格也加入“选中D4往下拖的功能”
补充一下，我是想直答接用VBA来实现这个功能，用到单元格的时候执行相回应的函数就行了，不用往单元格里插入函数，这样也可大大减小文件体积。答
Columns("E:E").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove教你一个用VBA的技巧：
以后你想知道类似于插入的vba编码怎么写，抄可以利用宏录百制，宏录制后会自动在编辑器中生成一个模块，你所录制的宏 的相应编码就在里面，这样你就可以参考使度用了。