如何删除表格中重复的那些行，有几百行。

k8vvv

这个表有近万行，我只选取了前面一部分。如果手工删除中间绿色部分的那几行，估计要几个小时不间断才能删除完，还可能会误删到别的行，我也试过用筛选来选定，但是不可以，这个表格应该是某个工程造价软件里面导出来的，有哪位大神知道有简便的方法删除中间标有颜色的部分吗？说明下：颜色是我后面自己标上去的，只是为了方便上传实例，原表是没有任何颜色 的。

jians0529

=OR(COUNTA(A5:G5)>6,COUNTA(A5:G5)<2)  
如果备注栏没数据。。这样就可以。。按照动画进行筛选删除即可！或者根据实例用条件格式标注后再筛选删除也可以1

有料大排档

I4单元格=LEN(B4)；I4单元格下拉；A4：I4单元格开启筛选；I4单元格筛选项 选择值为0删除筛选出来的行，I4单元格筛选项恢复全选；B4单元格筛选项选择 工程或费用名称（注：输入 工程 快速查找选取） 删除筛选出来的行。

yanjie

工程已标价工程量清单(2).rar (30.13 KB, 下载次数: 11)

2021-8-24 08:18 上传

点击文件名下载附件

Sub 宏1()
Dim rng As Range, firstAddress As String, cel As Range
    'Application.FindFormat.Clear      '发现查找出序号那一行向上延伸9行删除即可?
    Set rng = Range("A30:A211").Find(what:="序号", after:=Range("A170"))
    If Not rng Is Nothing Then
    firstAddress = rng.Address
    Do
    rng.Offset(-8).Resize(9).EntireRow.ClearContents
        If cel Is Nothing Then
        Set cel = rng.Offset(-8).Resize(9)
        Else
        Set cel = Application.Union(cel, rng.Offset(-8).Resize(9))
        End If
    Set rng = Sheet1.Range("A30:A211").FindPrevious(after:=rng)
    Loop While Not rng Is Nothing
    End If
cel.EntireRow.Delete
End Sub

k8vvv

yanjie 发表于 2021-8-24 08:18
Sub 宏1()
Dim rng As Range, firstAddress As String, cel As Range
    'Application.FindFormat.Cle ...

压缩包中的可以消除，到了原表格中再用就不行了，奇怪。

k8vvv

jians0529 发表于 2021-8-23 19:09
=OR(COUNTA(A5:G5)>6,COUNTA(A5:G5)

筛选后只有FALSE，下面true不能筛选出来，实际上我筛选FALSE后，下面的TRUE也跟着出来了，奇怪。我用的2016版本，后面直接选定这一列，就可以了，谢谢

k8vvv

有料大排档 发表于 2021-8-23 20:53
I4单元格=LEN(B4)；I4单元格下拉；A4：I4单元格开启筛选；I4单元格筛选项 选择值为0删除筛选出来的行，I4单 ...

你这个办法可行，我同事的WPS直接筛选就出来了，我这个2016的版就不行，看来EXCEL真的没落了

梦幻的流星

工程已标价工程量清单(1).zip (29.11 KB, 下载次数: 6)

2021-8-24 14:01 上传

点击文件名下载附件

liliang320597

不错。你们都很厉害

k8vvv

梦幻的流星 发表于 2021-8-24 14:02

这个不是宏，是什么什么做的，可以学会应用到以后的多个表格中去吗