如何删除EXCEL表中的大量数据行，要删除的行数大概8万

Posted 2023-05-13

要删除第一个EXCEL表中大概8万的数据行，这个表有93万数据，我在该表中加了一列“ID”，要删除的数据行的ID在另外一个EXCEL表中

在需要删除的表中插入一列，根据要删除数据的ID使用VLOOKUP进行查找，然后再使筛选插入行的数据删除即可。
=VLOOKUP（要查找的值、要在其中查找值的区域、区域中包含返回值的列号、精确匹配或近似匹配 – 指定为 0/FALSE 或 1/TRUE）。 参考技术A 楼主在该表中加了一列“ID”嘛，用该ID筛选，然后删除。追问

该表中的ID是全部的ID，也就是93万，而另外的表中的ID是8万

追答

两个ID没关联吗？如果可以关联，再筛选后删除。

如何删除excel中符合特定条件的所有行，以及随后的行

Example of what I'm trying to get rid of。

我正在尝试消除工作表中看来已被格式化为分页的垃圾数据。在每个新“页面”的开始处，G列中的一个单元格表示“页面X”。每页的下六行都是我要删除的垃圾数据，并且有数百个“页面”。

我希望能够编写一个公式来搜索工作表中包含文本“页面”（至少在G列中）的每个单元格，然后删除该行以及接下来的六行。

答案

1. 遍历Column G中的所有单元格>
2. 查找单元格=page和....
3. 将这些单元格+接下来的6行添加到Union （单元格的集合）
4. 删除Union末尾

---

Sub Maid()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1") '<-- Update
Dim DeleteMe As Range
Dim LR As Long

LR = ws.Range("G" & ws.Rows.Count).End(xlUp).Row

    For i = 2 To LR
        If ws.Range("G" & i) = "page" Then
            If Not DeleteMe Is Nothing Then
                Set DeleteMe = Union(ws.Range("G" & i).Resize(7), DeleteMe)
            Else
                Set DeleteMe = ws.Range("G" & i).Resize(7)
            End If
        End If
    Next i

    If Not DeleteMe Is Nothing Then
        DeleteMe.EntireColumn.Delete
    End If

End Sub