想在Excel中自动插入空白行,并且自动延续上一行的函数公式,该怎样设置呢?

网友解答: 用 "超级表功能"在Excel中有一种特别的表格,也通常称之为“超级表”,就是包括标准行列存储数据的单元格区域,它最首要的功用就是能够使一些常用函数和命令变得非常简单,快跟着

网友解答:

用 "超级表功能"


在Excel中有一种特别的表格,也通常称之为“超级表”,就是包括标准行列存储数据的单元格区域,它最首要的功用就是能够使一些常用函数和命令变得非常简单,快跟着小编一起学一下吧。

操作步骤:单击或全选单元格,插入-表格-确定,即完成le超级表的创立。

网友解答:

以#奖教奖学情况汇总表#为例来说明需要增减老师人数这个应用场景如何一键双击自动增加或删除一行的设置:

第一部分:应用场景

1、双击姓名所在B列的单元格时,在单元格下方插入一行;

2、插入行自动延续上一行的函数公式;

3、双击序号所在A列的单元格时,删除双击单元格所在行;

第二部分:应用设置

第一步,打开原来模板;

第二步,原来模板公式预览;

第三步,也是最关键的一步,考录代码;(有关宏设置及打开代码窗口请参照我之前的图文或问答,不再重复)

代码文本如下:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '工作表双击事件

Cancel = True '取消双击单元格进入编辑状态

If Target.Row 3 And Target.Column = 2 And Target.Value < "" Then

'限定在B列而且大于第三行而且内容不能为空的单元格中,双击单元格时插入一行

Rows(Target.Row + 1).Insert Shift:=xlDown

'在下方自动插入一行

Range("A" & Target.Row & ":O" & Target.Row).AutoFill Destination:=Range("A" & Target.Row & ":O" & Target.Row + 1), Type:=xlFillDefault

'复制双击行的公式到插入行中

ElseIf Target.Row 3 And Target.Column = 1 Then

'限定在A列而且大于第三行而且内容不能为空的单元格中,双击单元格时删除一行

Rows(Target.Row).Delete Shift:=xlUp

'删除双击单元格所在行

End If

End Sub

第四步,结果预览;

最后,如用于其他应用场景只需修改代码变量即可。

谢谢您的阅读!我是#Excel财务VBA#,懂会计的程序员,Excel&VBA精通。上面回答如果对您有帮助,或有不清楚的问题,或需要更多自动化财务表单模板下载,或了解更多实战技巧分享,请记得点赞、分享、关注我的酷米号“Excel财务VBA”哦!也可私信

标签: