快速删除指定列的包含指定字符的行

妖兽

老师们，我想删除C列是"2024"开头的行，或者D列是"是"的行。如果用替换空值一键删除是挺快的，但C列本身是空行的也会被删除，我想保留。
原始数据挺大的，几十万行，请教有没有什么快速的法子？ 测试.zip (166.71 KB, 下载次数: 12)

2025-3-25 07:35 上传

点击文件名下载附件

liulang0808

楼主筛选后删除是否可行呢？

沈默00

C,D列筛选后，再删除就好了，还要代码？？？

3190496160

Sub 删除行()
Application.ScreenUpdating = False
Dim i As Long, r As Long
Dim rn As Range
r = Cells(Rows.Count, 3).End(xlUp).Row
ar = Range("c3:c" & r)
For i = 2 To UBound(ar)
    If ar(i, 1) <> "" Then
        If IsDate(ar(i, 1)) Then
            nf = Year(ar(i, 1))
            If nf = "2024" Then
                m = m + 1
                If rn Is Nothing Then
                    Set rn = Rows(i + 2)
                Else
                    Set rn = Union(rn, Rows(i + 2))
                End If
            End If
        End If
    End If
Next i
If rn Is Nothing Then MsgBox "没有需要删除的数据！": End
rn.Delete
Application.ScreenUpdating = True
MsgBox "删除了" & m & "行数据！"
End Sub

3190496160

测试.rar (115.07 KB, 下载次数: 6)

2025-3-25 09:00 上传

点击文件名下载附件

朝露孤烟

筛选后，再删除，很快的。

usedrange

。。。。。。。。。。。。

朝露孤烟

Sub DeleteRows()
    Dim ws, lastRow, i, sd
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    For i = lastRow To 1 Step -1
        If InStr(Application.Text(ws.Cells(i, 3).Value, "yyyy"), "2024") > 0 And InStr(ws.Cells(i, 4).Value, "是") > 0 Then
            ws.Rows(i).Delete
        End If
    Next i
    MsgBox "OK!SET!"
End Sub

demonimissyou

参与一下………………

凌空一羽

liulang0808 发表于 2025-3-25 07:45
楼主筛选后删除是否可行呢？

老师你的这堆闪闪牌子好耀眼啊