如何在A列序号为1的行前面批量插入表头？

xus123

请问各位老师，如何在A列序号为1的行前面批量插入表头？非常感谢！

半百

我觉得你需要的应该是插入分页符吧

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.17
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set ws = ThisWorkbook.Worksheets("一食堂一楼")
   
5.     With ws
   
6.         Set Rng = .Range("a1:i5")
   
7.         r = .Cells(Rows.Count, 1).End(3).Row
   
8.         For i = r To 7 Step -1
   
9.             If .Cells(i, 1) = 1 Then
   
10.                 .Rows(i).Insert Shift:=xlDown
    
11.                 Rng.Copy .Cells(i, 1)
    
12.             End If
    
13.         Next
    
14.     End With
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "OK！"
    
17. End Sub
    
18. 
    

复制代码

ykcbf1100

附件供参考。。。

xus123

非常感谢“半百”老师和“ykcbf1100”老师的帮助！