新增一行没有带公式，是空白行， 怎么修改才能使新增一行带公式

flfzhy

点增加行数按钮后，新增一行没有带公式，是空白行， 怎么修改才能使新增一行带公式

Sub 增加()
Dim j
j = Sheet1.Range("a65536").End(xlUp).Row - 1 'a列最后一个非空单元格的行数

    Sheet1.Range("a" & j).Select '行号可变选择, 选择a单元格
    Selection.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

无敌小猪猪

    Range("D1").Formula = "=$A$1&TEXT(B1,""00"")"
对应的单元格你自己填写自己想要个公式进去就好了，以上代码仅供参考

xunanming

1. Sub 增加()
   
2. Dim j
   
3.     j = Sheet1.Range("a65536").End(xlUp).Row  'a列最后一个非空单元格的行数
   
4.     Sheet1.Range("a" & j).Select '行号可变选择, 选择a单元格
   
5.     Sheet1.Rows(j).Copy
   
6.     Selection.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   
7.     Application.CutCopyMode = False
   
8. End Sub
   

复制代码

要先复制那一行再插入,相应的公式才可以paste过来.

flfzhy

xunanming 发表于 2024-3-30 15:44
要先复制那一行再插入,相应的公式才可以paste过来.

感谢！用你的代码完美解决！

flfzhy

无敌小猪猪 发表于 2024-3-30 12:49
Range("D1").Formula = "=$A$1&TEXT(B1,""00"")"
对应的单元格你自己填写自己想要个公式进去就好了， ...

谢谢回复！