excel vba代码中加入单元格的函数
如图：C4=IF(B4<>"",$F$1,"")我把它往下拖动几格，下方的格也有了函数，如C5=IF(B5<>"",$F$1,"")等但我想让C4下的所有单元格都有相应的...
如图：C4=IF(B4<>"",$F$1,"")
我把它往下拖动几格，下方的格也有了函数，如C5=IF(B5<>"",$F$1,"")等
但我想让C4下的所有单元格都有相应的函数，手工拖动就不实际了，所以想在VBA中加入这个功能。
除了C列需要这样外，D列也要，如D4下所有单元格也加入“选中D4往下拖的功能”
补充一下，我是想直接用VBA来实现这个功能，用到单元格的时候执行相应的函数就行了，不用往单元格里插入函数，这样也可大大减小文件体积。 展开
我把它往下拖动几格，下方的格也有了函数，如C5=IF(B5<>"",$F$1,"")等
但我想让C4下的所有单元格都有相应的函数，手工拖动就不实际了，所以想在VBA中加入这个功能。
除了C列需要这样外，D列也要，如D4下所有单元格也加入“选中D4往下拖的功能”
补充一下，我是想直接用VBA来实现这个功能，用到单元格的时候执行相应的函数就行了，不用往单元格里插入函数，这样也可大大减小文件体积。 展开
3个回答
展开全部
如图：C4=IF(B4<>"",$F$1,"")
我把它往下拖动几格，下方的格也有了函数，如C5=IF(B5<>"",$F$1,"")等
但我想让C4下的所有单元格都有相应的函数，手工拖动就不实际了，所以想在VBA中加入这个功能。
除了C列需要这样外，D列也要，如D4下所有单元格也加入“选中D4往下拖的功能”
补充一下，我是想直接用VBA来实现这个功能，用到单元格的时候执行相应的函数就行了，不用往单元格里插入函数，这样也可大大减小文件体积。
本回答由科学教育分类达人 张雪推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
1-3行设置隐藏
选择C:C; 即选择C一整列
Ctrl+ G 定位条件选择:可见单元格
Ctrl+D
1-3行设置 不隐藏
更多追问追答
追问
这样操作直接卡死了，而且也会导致文件体积太大，我是想直接用VBA来实现这个功能，用到单元格的时候执行相应的函数就行了，不用往单元格里插入函数，减少体积。
追答
见附件！！附件对sheet1有效
给爷笑一个
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
录制了一段宏，请根据需要自行修改
Sub Macro1()
Range("C1:C32").Select
Selection.FillDown
End Sub
Sub Macro1()
Range("C1:C32").Select
Selection.FillDown
End Sub
追问
这样操作直接卡死了，而且也会导致文件体积太大，我是想直接用VBA来实现这个功能，用到单元格的时候执行相应的函数就行了，不用往单元格里插入函数，减少体积。
追答
Sub Macro1()
Range("C1:C32").Select '选择范围，请自行修改
Selection.FillDown '向下填充
Range("C2:C32").Copy '保留第1行公式，从第2行开始复制
Range("C2").PasteSpecial xlPasteValues '选择性粘贴
End Sub
说实在的，既然数据量大，你还不如在宏中取单元格区域到数组，通过VBA代码完成函数功能，然后再赋值到指定单元格区域。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
