插入多行表头时,数据会少一行或多行,请帮忙修改代码,谢谢!

陈功

插入多行表头时,数据会少一行或多行,请帮忙修改代码,谢谢!

lsc900707

1. Sub 插入多行标题()
   
2. Dim Arr, i&
   
3. Application.ScreenUpdating = False
   
4. Sheet8.Activate
   
5. Arr = [a1].CurrentRegion
   
6. For i = 4 To UBound(Arr)
   
7.     If InStr(Arr(i, 1), "汇总") Then
   
8.         Rows(i + 2).Insert
   
9.         Cells(2, 1).Resize(2, UBound(Arr, 2)).Copy Cells(i + 1, 1)
   
10.     End If
    
11. Next
    
12. Application.ScreenUpdating = True
    
13. End Sub

复制代码

lsc900707

贴代码时遇到审核，先测试附件吧：

abc123281

代码仅供参考

Book abc123.rar (13.68 KB, 下载次数: 7)

2018-9-25 13:20 上传

点击文件名下载附件

陈功

谢谢大家帮助！