如何在A列中所有数字1的单元格上方批量增加两行空行

fendychen

如何在A列中所有数字1的单元格上方批量增加两行空行？

cyh3230

VBA, 可以试试, 比较方便

1. Sub Rinsert()
   
2. 
   
3. For i = 25 To 1 Step -1
   
4.     If Range("a" & i) = 1 Then Range("a" & i).EntireRow.Resize(2).Insert
   
5. Next
   
6. 
   
7. End Sub

复制代码

mykitami

=DROP(REDUCE("",A1:A25,LAMBDA(x,y,VSTACK(x,IF(y=1,VSTACK({"";""},y),y)))),1)

jisijie630

=MID(CONCAT(IF(A$1:A$25,"  1",0)),ROW(A1),1)

boyuanoffice

1. =REDUCE("插入空行",A1:A25,LAMBDA(x,y,VSTACK(x,IF(y=1,{"";"";1},y))))

复制代码