EXCEL表格如何实现在插入行后自动复制上一行中各对应列的公式？
电子表格各行使用了公式，看能否实现在插入一行后，该行自动复制上一行的公式。具体操作要求只需“插入行”一步，不需其他操作，新插入的行就可以自动复制上一行中各列对应的公式。
强调：达到的标准必须是只须“插入行”一步，不需其他操作。
探讨：是否需要编写宏或编辑VBA。
能否在工作表被保护的状态下插入行或列？怎么设置？
第1个回答 2019-05-10
1、在EXCEL表格中，先输好公式。
2、鼠标点击输公式的单元格，把鼠标放在单元格的右下角，会出现一个十字黑色标。
3、将输入公式的单元下拉，把第一行的公式复制到其他行，想要多少行拉多少行。
4、最后在前面的单元格输入数字，公式的单元格就会自动显示出数据。
第2个回答 2015-08-08
1、如图
这个时候 注意 选定插入的行 按快捷键 CTRL+D 得出 如下结果
从填充的公式可以看出，得出的是结果是想对引用的公式。
如需 结果为绝对引用的位置，则在 第一行的公式中 用绝对引用的公式
第3个回答 2011-01-10
用宏比较简单、先录制第一行的公式、然后插入一行、下拉公式、停止录制、 这只是插入一行和复制一行、但我建议你可以考虑先插入你需要的行数、也可以达到相同效果
插入行代码:
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
可以把录制宏的代码复制放到这个之前、剩下的就是你的事情了、可能你修改的时候会有错误、但代码绝对是正确的、因为前段时间我做过类似的、希望对你有帮助本回答被提问者采纳
插入行代码:
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
可以把录制宏的代码复制放到这个之前、剩下的就是你的事情了、可能你修改的时候会有错误、但代码绝对是正确的、因为前段时间我做过类似的、希望对你有帮助本回答被提问者采纳
第4个回答 2011-01-11
选择一行，复制，原位置插入复制的单元格
问题补充：
能否在工作表被保护的状态下插入行或列？怎么设置？
菜单_工具_保护_保护工作表_弹出对话框中在"插入列"和"插入行"前面打勾,设置或不设置密码后确定
问题补充：
能否在工作表被保护的状态下插入行或列？怎么设置？
菜单_工具_保护_保护工作表_弹出对话框中在"插入列"和"插入行"前面打勾,设置或不设置密码后确定
相似回答