Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4202|回复: 10

[已解决]VBA 填充filldown 指教

[复制链接]
发表于 2012-10-3 20:24 | 显示全部楼层 |阅读模式
下列代码为什么起不到填充作用,而是简单的复制h1内容?如何改
Sub u()
Range("h1") = Range("f1") * Range("g1")
Range("h1:h15").FillDown
End Sub
最佳答案
2012-10-3 20:29
  1. Sub u()
  2.     Range("h1") = "=f1*g1"
  3.     Range("h1:h15").FillDown
  4. End Sub
复制代码
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-10-3 20:28 | 显示全部楼层
回复

使用道具 举报

发表于 2012-10-3 20:29 | 显示全部楼层    本楼为最佳答案   
  1. Sub u()
  2.     Range("h1") = "=f1*g1"
  3.     Range("h1:h15").FillDown
  4. End Sub
复制代码
回复

使用道具 举报

发表于 2012-10-3 20:30 | 显示全部楼层
不知楼主是要填充序列还是填充公式?
回复

使用道具 举报

发表于 2012-10-3 20:34 | 显示全部楼层
如果是要填充序列
[e1]=1
Range("e1:e14").DataSeries Rowcol:=xlColumns, Type:=xlLinear
回复

使用道具 举报

发表于 2012-10-3 20:35 | 显示全部楼层
本帖最后由 yashj2007 于 2012-10-3 20:36 编辑


回复

使用道具 举报

 楼主| 发表于 2012-10-3 20:38 | 显示全部楼层
hwc2ycy 发表于 2012-10-3 20:34
如果是要填充序列
[e1]=1
Range("e1:e14").DataSeries Rowcol:=xlColumns, Type:=xlLinear

如果是填充公式,如何写,请指教。
回复

使用道具 举报

发表于 2012-10-3 20:39 | 显示全部楼层
3楼的就是啦。
只要在第一个单元格里有公式就成了。
回复

使用道具 举报

发表于 2012-10-4 10:54 | 显示全部楼层
学习填充公式,序列,复制
回复

使用道具 举报

发表于 2012-10-4 11:48 | 显示全部楼层
hwc2ycy 发表于 2012-10-3 20:34
如果是要填充序列
[e1]=1
Range("e1:e14").DataSeries Rowcol:=xlColumns, Type:=xlLinear


如果是要填充序列
[e1]=1
Range("e1:e14").DataSeries

后面参数可以省略
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 05:08 , Processed in 0.522750 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表