Excel精英培训网

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

[已解决]Excel VBA autofil 公式中包含绝对引用怎么写?

[复制链接]
发表于 2015-8-25 15:57 | 显示全部楼层 |阅读模式
各位老师,
如下所示,
目的:B1=B2/$A$2,自动填充B2到D2
结果:录制宏,代码如下
请教:如何把录制宏的坐标代码R1C1等改为Range("B1"),谢谢。
ABCD
1
18%
55%
27%
2
550
100
300
150

Sub Test()
'
' Test 宏
'
'
    ActiveCell.FormulaR1C1 = "=R[1]C/R2C1"
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:D1"), Type:=xlFillDefault
    Range("B1:D1").Select
End Sub
最佳答案
2015-8-25 16:04
Sub test()
    With [b1:d1]
        .Value = "=b2/$a2"
        .NumberFormat = "0%"
    End With
End Sub


如果偷懒,可这么写
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2015-8-25 16:04 | 显示全部楼层    本楼为最佳答案   
Sub test()
    With [b1:d1]
        .Value = "=b2/$a2"
        .NumberFormat = "0%"
    End With
End Sub


如果偷懒,可这么写
回复

使用道具 举报

发表于 2015-8-25 16:06 | 显示全部楼层
  1. Sub ss()
  2. Range("B1") = "=B2/$A$2"
  3. Range("B1").AutoFill Range("b1:d1")
  4. End Sub
复制代码
回复

使用道具 举报

发表于 2015-8-25 16:09 | 显示全部楼层
  1. [B1:D1] = "=B2/$A$2"
复制代码
回复

使用道具 举报

 楼主| 发表于 2015-8-25 16:59 | 显示全部楼层
爱疯 发表于 2015-8-25 16:04
Sub test()
    With
        .Value = "=b2/$a2"

{:171:}谢谢爱疯。 with 语句 很赞 学习了!
回复

使用道具 举报

 楼主| 发表于 2015-8-25 17:04 | 显示全部楼层
yorkchenshunan 发表于 2015-8-25 16:06

谢谢!公式中单元格的表示方法现在终于明白了。困扰了好几天。{:25:}
回复

使用道具 举报

 楼主| 发表于 2015-8-25 17:12 | 显示全部楼层
gufengaoyue 发表于 2015-8-25 16:09

神!够简洁实用!谢谢。
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 04:05 , Processed in 0.419870 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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