如何快速删除多行重复表头

qwa

我是新人，在使用excel过程中，有问题一直无法解决，向大家请教。
用兴安预算软件生成的预算书excel格式文件，它已插入分页符，在每页第一行显示表头，每次进行页面重新排版时，我都要在excel里手动删除那些表头，很烦，不知有什么高效的方法。
有谁能帮我吗，谢了。

yangweixian

不知道你的表头是什么样子，我想可能用筛选进行删除吧

LangQueS

可以使用高级筛选等方法

建议楼主压缩上传Excel问题附件并加以说明或做出模拟结果，以便大家了解和解答。(编辑已发贴即可补充上传附件)

如何发表新话题和上传附件:
http://club.excelhome.net/thread-45649-1-1.html

发帖的技巧:
http://club.excelhome.net/thread-176339-1-1.html

heike2004

请向兴安预算软件研发部反馈此问题

qwa

谢谢您这么快给予回复。
我的表头是由有固定内容的几行组成，我用筛选功能，方式选用在原有区域显示筛选结果，对整个表格内容进行选择不重复的记录筛选，结果还留有一行，不知何故。能请教一下吗？

[ 本帖最后由 qwa 于 2010-12-23 13:33 编辑 ]

cailc1361

只保留最上面的表头，然后设置顶端标题栏

qwa

这个问题看来不会有其他更好的答案了，在此谢谢大家的帮忙。

沉潜

qwa 发表于 2010-12-27 13:48
这个问题看来不会有其他更好的答案了，在此谢谢大家的帮忙。

Sub 删除相同行()
    Application.ScreenUpdating = False
    Dim arr, d As Object, i&, s$, rng As Range
    Set d = CreateObject("scripting.dictionary")
    arr = ActiveSheet.UsedRange.Value            '设指定区域如：=Range("a5:k" & Range("a65536").End(xlUp).Row)
    For i = 1 To UBound(arr)
        s = Join(Application.Index(arr, i), "/")  '设指定列数据重复如:s=arr(i, 2) & "/" & arr(i, 4) & "/" & arr(i, 5) & "/" & arr(i, 6) & "/" & arr(i, 7)
          If Not d.Exists(s) Then
             d(s) = ""
          Else
             If rng Is Nothing Then Set rng = Cells(i, 1) Else Set rng = Union(rng, Cells(i, 1))
         End If
     Next
     If Not rng Is Nothing Then rng.EntireRow.Delete
     For i = UBound(arr) To 1 Step -1    '删除中间的空行
         Set rng = Cells(i, 1).Resize(1, UBound(arr, 2))
         If Application.CountA(rng) = 0 Then Rows(i).Delete
     Next
     For j = UBound(arr, 2) To 1 Step -1 '删除中间的空列
         Set rng = Cells(1, j).Resize(UBound(arr), 1)
         If Application.CountA(rng) = 0 Then Columns(j).Delete
     Next
    Application.ScreenUpdating = True
End Sub

你试试

qwa

沉潜 发表于 2013-7-28 16:30
Sub 删除相同行()
    Application.ScreenUpdating = False
    Dim arr, d As Object, i&, s$, rng As ...

一直没空过来看帖。今看到您的回复。谢谢！我试试。

ycwxl521

沉潜 发表于 2013-7-28 16:30
Sub 删除相同行()
    Application.ScreenUpdating = False
    Dim arr, d As Object, i&, s$, rng As ...

数据多点的时候，运行起来就总划圈圈，过不了……