咔片PPT · AI自动生成演示文稿，模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word，高效应对学习与办公

适用于一个工作薄有N个格式都一样的工作表。不想重复修改每个表的改公式，可以改一个表后用此宏批量修改其他工作表同样单元格的公式，可多选单元格。比多选工作表再修改快。
A和B是选定需要修改的范围，即从表A开始，到表B结束

=================================

Sub 批量更新公式()

Set ts = ActiveSheet

n = 1

For Each rng In Sheets

If rng.Name = "A" Then st = n

If rng.Name = "B" Then la = n

n = n + 1

Next

If st = "" Then

MsgBox "此宏只适用于决算分析表"

Exit Sub

End If

Set abcn = Application.InputBox("请输入你要批复修改的单元格范围", Type:=8)

For i = st + 1 To la - 1

For Each abc In abcn

Sheets(i).Range(abc.Address) = abc.Formula

' dd = abc.Address

Next abc

Next i

ts.Activate

End Sub

代码要300个字，你让我咋申请原创，明明是原创的代码非不让我声明，真不公平！

代码要300个字，你让我咋申请原创，明明是原创的代码非不让我声明，真不公平！

代码要300个字，你让我咋申请原创，明明是原创的代码非不让我声明，真不公平！

代码要300个字，你让我咋申请原创，明明是原创的代码非不让我声明，真不公平！

代码要300个字，你让我咋申请原创，明明是原创的代码非不让我声明，真不公平！

代码要300个字，你让我咋申请原创，明明是原创的代码非不让我声明，真不公平！