适用于一个工作薄有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 = n1
Next
If st = "" Then
MsgBox "此宏只适用于决算分析表"
Exit Sub
End If
Set abcn = Application.InputBox("请输入你要批复修改的单元格范围", Type:=8)
For i = st1 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个字 ， 你让我咋申请原创，明明是原创的代码非不让我声明，真不公平！