电子表格excel 把公式粘贴到所有表格中

1.excel 把公式粘贴到所有表格中

首先录制一个新宏， 工具--宏--录制新宏。（可以选个快捷方式 “q” ，一定要是小写的，没有快捷方式也可以。）

然后停止录制（黑方块），进入VISUAL BASIC编辑器，选择模块下的模块1，将下列代码拷贝到这个宏当中去，Sub Macro1（)和END SUB之间。

Dim i As Integer

Dim Ming As String

Ming = "C1" '这个C1就是你要粘贴公式的位置，自己修改。

Range(Ming).Select

ActiveCell.FormulaR1C1 = "=SUM(RC[-2],RC[-1])" '双引号中的就是公式，这是一个求和函数。

Range(Ming).Select

Selection.Copy

For i = 0 To 99 '99代表有100个表，自己修改表个数。

Sheets(i + 1).Select

Range(Ming).Select

ActiveSheet.Paste

Next i

Application.CutCopyMode = False

用的时候直接运行这个宏就可以了。或者按CTRL+q。如果禁止运行宏，那么就在 工具--宏--安全性 里将安全级别设置成 中。