EXCEL表格如何实现在插入行后自动复制上一行中各对应列的公式?
电子表格各行使用了公式,看能否实现在插入一行后,该行自动复制上一行的公式。具体操作要求只需“插入行”一步,不需其他操作,新插入的行就可以自动复制上一行中各列对应的公式。强...
电子表格各行使用了公式,看能否实现在插入一行后,该行自动复制上一行的公式。具体操作要求只需“插入行”一步,不需其他操作,新插入的行就可以自动复制上一行中各列对应的公式。
强调:达到的标准必须是只须“插入行”一步,不需其他操作。
探讨:是否需要编写宏或编辑VBA。
能否在工作表被保护的状态下插入行或列?怎么设置? 展开
强调:达到的标准必须是只须“插入行”一步,不需其他操作。
探讨:是否需要编写宏或编辑VBA。
能否在工作表被保护的状态下插入行或列?怎么设置? 展开
展开全部
用宏比较简单、先录制第一行的公式、然后插入一行、下拉公式、停止录制、 这只是插入一行和复制一行、但我建议你可以考虑先插入你需要的行数、也可以达到相同效果
插入行代码:
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
可以把录制宏的代码复制放到这个之前、剩下的就是你的事情了、可能你修改的时候会有错误、但代码绝对是正确的、因为前段时间我做过类似的、希望对你有帮助
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
选择一行,复制,原位置插入复制的单元格
问题补充:
能否在工作表被保护的状态下插入行或列?怎么设置?
菜单_工具_保护_保护工作表_弹出对话框中在"插入列"和"插入行"前面打勾,设置或不设置密码后确定
问题补充:
能否在工作表被保护的状态下插入行或列?怎么设置?
菜单_工具_保护_保护工作表_弹出对话框中在"插入列"和"插入行"前面打勾,设置或不设置密码后确定
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询