关于批量删除表头的问题

ardislfx

如示例中的文档，总共有几十页。每一页的前四行（以行号计）均为表头，每一页都一样（其中四行表头中还包含一行空白的行）。想一次性把全部表头删除，怎么能做到，请高手指点，谢谢！（详见附件“示例”）

ardislfx

把每一页的图片部分删除

ardislfx

高手帮忙解决一下，感谢了！！！

focuson1

选择全部工作表，选定前四行，删除就可以了

focuson1

focuson1 发表于 2016-8-25 16:00
选择全部工作表，选定前四行，删除就可以了

看错问题了，我以为有多张工作表格。这个可以发到VBA版块，写个VBA代码很容易解决。

yaozong

1. Sub 删除中间标题行()
   
2. Dim arr, rng As Range, r&, i&
   
3. r = ActiveSheet.Cells.Find("*", , , , 1, 2).Row
   
4. Set rng = Cells(r + 1, 1)
   
5. arr = Range("a1:n" & r).Value
   
6. For i = 10 To r
   
7.   If arr(i, 1) Like "*分部分项*" Then
   
8.     Set rng = Union(rng, Cells(i, 1).Resize(5))
   
9.     i = i + 5
   
10.   End If
    
11. Next
    
12. rng.EntireRow.Delete
    
13. End Sub
    

复制代码