时间戳

首页 > 解决方案 > 根据日期删除多行

excel - 根据日期删除多行

问题描述

我创建了一个宏，在其中我根据“C”列中的日期删除每一行。我在使用宏时遇到问题，因为它会遍历每一行并逐行删除它们，而不是一次全部删除。有什么办法可以加快这个过程，这样它就不会需要 30 分钟才能运行。顺便说一下，文件很大。

Sub DeleteRowsBeforeCutoff()
    Application.ScreenUpdating = False

    NumRows = Range("C3", Range("C3").End(xlDown)).Rows.Count
    Range("A1").Select
    For x = 3 To NumRows
        If Cells(x, 3) < [K1] Then
            Cells(x, 3).EntireRow.Delete
        End If
    Next x
    Application.ScreenUpdating = True
End Sub

标签： excelvba

解决方案

正如@Gary 所写，代码将向后循环，我尝试使用 yr 代码（更新）将每一行删除为 25K 范围行，结果如下： mycode: 00:00:03:123 joecode: 00:00 :14:1214

两个代码：

Sub testJoe()
Dim startTime As Single
Dim i As Long
startTime = Time()
For i = Range("C2").End(xlDown).Row To 2 Step -1
    If Cells(i, 3) = 3 Then Rows(i).EntireRow.Delete
Next
Debug.Print Format(Time() - startTime, "HH:nn:ss:ms")
End Sub

Sub mytest()
Dim startTime As Single, rang As Range, sh As Worksheet
startTime = Time()
Set sh = ActiveSheet
sh.UsedRange.AutoFilter Field:=3, _
                        Criteria1:="=3", _
                        VisibleDropDown:=False
Set rang = sh.UsedRange.Offset(1, 0)
Set rang = rang.Resize(rang.Rows.Count - 1)
Set rang = rang.SpecialCells(xlCellTypeVisible)
rang.EntireRow.Delete
Selection.AutoFilter
Debug.Print Format(Time() - startTime, "HH:nn:ss:ms")
End Sub

推荐阅读