EXCEL表格如何实现在插入行后自动复制上一行中各对应列的公式？ 如何在excel中，在任意位置插入一行后，该行能自动复制上一...

EXCEL2010中如何在任意位置插入一行后，该行能自动复制上一行的所有公式及格式~

用EXCEL宏很容易实现：
;按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴下面的代码。运行,就OK了。
;1.在excel中，在任意位置插入一行后，该行能自动复制上一行的所有公式及格式（用vba）

Private Sub Worksheet_Change(ByVal Target As Range)
a = Target.Row()
b = Target.Column()
Application.ScreenUpdating = False
If a 1 Then
If Cells(a, b) = "" And Cells(a - 1, b) "" Then
For x = 1 To 256
If Cells(a - 1, x).HasFormula = True Then
Cells(a - 1, x).Copy
Cells(a, x).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next x
Cells(a, b).Select
End If
End If
Application.ScreenUpdating = True
End Sub



;2.在excel中，在任意位置插入一行后，该行能自动复制上一行（用vba）
Private Sub Worksheet_Change(ByVal Target As Range1)
a = Target.Row()
b = Target.Column()
If a 1 Then
If Cells(a, b) = "" And Cells(a - 1, b) "" Then
Rows(a - 1 & ":" & a - 1).Copy
Cells(a, b).Select
ActiveSheet.Paste
c = Cells(a, b)
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = c
Cells(a, b).Select
End If
End If
End Sub

输入一行会触发：Change事件
可以在这个该事件中写入代码就可以了。
（北京 黄吕娜）

EXCEL表格实现在插入行后自动复制上一行中各对应列的公式的具体步骤如下：

需要准备的材料分别是：电脑、Excel表格。

以win7系统、Excel表格2010版为例：

1、首先打开需要编辑的Excel表格。

2、然后在弹出来的窗口中点击打开左上角文件中的“选项”。

3、然后在弹出来的窗口中点击打勾高级中的“扩展数据区域格式及公式”即可。

1、在EXCEL表格中，先输好公式。

2、鼠标点击输公式的单元格，把鼠标放在单元格的右下角，会出现一个十字黑色标。

3、将输入公式的单元下拉，把第一行的公式复制到其他行，想要多少行拉多少行。

4、最后在前面的单元格输入数字，公式的单元格就会自动显示出数据。

1、如图 

      这个时候 注意 选定插入的行 按快捷键 CTRL+D 得出 如下结果

  从填充的公式可以看出，得出的是结果是想对引用的公式。

  如需 结果为绝对引用的位置，则在 第一行的公式中 用绝对引用的公式 

用宏比较简单、先录制第一行的公式、然后插入一行、下拉公式、停止录制、 这只是插入一行和复制一行、但我建议你可以考虑先插入你需要的行数、也可以达到相同效果
插入行代码:
Dim C As Integer
For C = 1 To AA(AA表示你要插入的行数、也可以定义)
Sheets("表名").Rows(3).Insert Shift:=xlDown //表示从第三行开始插入
NEXT
复制公式的代码:
Selection.AutoFill Destination:=Sheets("表名").Range("A2:G" + CStr(AA)), Type:=xlFillDefault
Sheets("表名").Range("A2:G" + CStr(AA)).Select
可以把录制宏的代码复制放到这个之前、剩下的就是你的事情了、可能你修改的时候会有错误、但代码绝对是正确的、因为前段时间我做过类似的、希望对你有帮助

选择一行，复制，原位置插入复制的单元格

问题补充：
能否在工作表被保护的状态下插入行或列？怎么设置？

菜单_工具_保护_保护工作表_弹出对话框中在"插入列"和"插入行"前面打勾,设置或不设置密码后确定