Excel精英培训网

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

如何批量修改公式?

[复制链接]
发表于 2018-1-1 19:41 | 显示全部楼层 |阅读模式
如附件工作薄中有四个表:总表、表一、表二、表三,四个表样式完全相同。
原来总表中的公式是:表一加表二,现在想加上表三,如B2公式原为“=表一!B2+表二!B2”,现在想批量改成“=表一!B2+表二!B2+表三!B2”
请教用VBA怎么进行批量修改呢?谢谢!


如何批量修改公式?.zip

12.39 KB, 下载次数: 9

发表于 2018-1-2 09:21 | 显示全部楼层
你可以先在B2单元格输入公式“=表一!B2+表二!B2+表三!B2”

然后录制一段代码,如下:
  1. Sub 按钮1_单击()
  2. '
  3. ' 按钮1_单击 Macro
  4. ' 宏由 hhzjxss 录制,时间: 2018/1/2
  5. '

  6. '
  7.     Range("B2").Select
  8.     Selection.FormulaR1C1 = "=表一!RC+表二!RC+表三!RC"
  9.     Selection.AutoFill Destination:=Range("B2:B4"), Type:=xlFillDefault
  10.     Range("B2:B4").Select
  11. End Sub
复制代码
回复

使用道具 举报

发表于 2018-1-2 09:23 | 显示全部楼层
然后再优化一下上面录制的代码,如下:

  1. Sub 单击()
  2.     Range("B2").FormulaR1C1 = "=表一!RC+表二!RC+表三!RC"
  3.     Range("B2").AutoFill Destination:=Range("B2:B4"), Type:=xlFillDefault
  4. End Sub
复制代码


然后,然后就ok了!
回复

使用道具 举报

发表于 2018-1-2 09:25 | 显示全部楼层
同理,如果要修改C2的公式为“=表一!C2+表二!C2+表三!C2”

也是一样一样的:

  1. Sub 单击2()
  2.     Range("C2").FormulaR1C1 = "=表一!RC+表二!RC+表三!RC"
  3.     Range("C2").AutoFill Destination:=Range("C2:C4"), Type:=xlFillDefault
  4. End Sub
复制代码
回复

使用道具 举报

发表于 2018-1-2 09:26 | 显示全部楼层
如果需要附件,如下:

批量修改公式.zip (15.88 KB, 下载次数: 3)
回复

使用道具 举报

发表于 2018-1-2 10:17 | 显示全部楼层
用F5定位条件功能,然后用替换功能,不是可以更快速的批量修改公式?
回复

使用道具 举报

 楼主| 发表于 2018-1-2 21:38 | 显示全部楼层
已经解决了,谢谢!
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 15:02 , Processed in 0.599999 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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