VBA插入行即复制上行格式和所有公式

打开话匣子

hzruziniu 发表于 2021-7-5 12:50
插入后除公式外文本和数字全部删除，当然你其他逻辑值保存不了，代码执行完毕后再输入就可以保存了。发的文 ...

使用插入行的代码后，Worksheet_Change触发事件代码就中断，表格要关闭重新启动，Worksheet_Change触发事件代码才能运行。有办法解决吗？

ericxzhou

hzruziniu 发表于 2021-6-30 01:49

换一个思路：定位有公式的单元格再fill-down。

1. Private Sub CommandButton1_Click()
   
2.     Dim k As Range, i%
   
3.     Application.EnableEvents = False
   
4.     On Error Resume Next
   
5.     i = ActiveCell.Row
   
6.     Cells(i + 1, 1).Resize(3, 1).EntireRow.Insert
   
7.     For Each k In Range(Cells(i, 1), Cells(i, 33)).SpecialCells(xlCellTypeFormulas)
   
8.         k.Resize(4, 1).FillDown
   
9.     Next
   
10.     Application.EnableEvents = True
    
11. End Sub

复制代码

打开话匣子

ericxzhou 发表于 2021-7-5 13:33
换一个思路：定位有公式的单元格再fill-down。

试用后，非常满意。谢谢ericxzhou大侠！

supest

ericxzhou 发表于 2021-7-5 13:33
换一个思路：定位有公式的单元格再fill-down。

大侠你好！发现一个问题，插入行下面的那些行的公式没有顺着行号顺延，而是保留了插入前的行号？可以让他们自动顺延行号吗？
才发现系统默认插入行后面的行号就是不顺延的，那就算了吧，谢谢了！

dengcaimao

不断学习，进步

zxmlysxl

hzruziniu 发表于 2021-6-30 01:49

这段真的很强大，我自己原来的代码执行效率太低，100行需要超过1分钟，大佬这个300行也就几秒钟的事，圆了我的快男梦