excel自动添加记录（使用按钮调用vba）

直入主题，我想实现单击一个按钮，完成将某一段excel单元格自动复制到特定位置，如下图：

添加一条记录前：

添加后：

效果图如下：

点击按钮插入记录-优快云直播

要求是：

1、最下面的一行的备注要保留，不能丢失。

2、将里面的数据备份一份，插入到最后一行的前面；

3、一条记录的行数可自动调整，比如上面的图中的我的一条记录是4行，如果是其他行可以自动适应；

直接上代码，首先先放一个按钮。

 

定义函数代码如下：

Sub insert_record()