gpt4 book ai didi

excel - 通过自动过滤器删除需要太长时间

转载 作者:行者123 更新时间:2023-12-02 07:26:58 25 4
gpt4 key购买 nike

我有大约 8000 多行。使用自动筛选器删除行需要几分钟的时间。我认为自动过滤器是事实上的快速删除方式(而不是逐行循环)。我怎样才能加快速度?有更快的方法吗?公平地说,一半的行被删除了 XD

With ThisWorkbook.Worksheets("Upload")
lastRow = .Cells(.Rows.Count, "S").End(xlUp).Row
Set dataRng = .Range(.Cells(4, 1), .Cells(lastRow, 19))
dataRng.AutoFilter field:=19, Criteria1:="=0"
Application.DisplayAlerts = False
dataRng.Offset(1, 0).Resize(dataRng.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Rows.Delete
Application.DisplayAlerts = True
.ShowAllData
End With

最佳答案

我将挑战自动筛选是最快方法的基本假设 - 通常很难在变体数组上击败循环

这个演示展示了一种方法,在我的系统上处理 8000 多行,在亚秒内删除一半运行

Sub DEMO()
Dim datrng As Range
Dim dat, newdat
Dim i As Long, j As Long, k As Long
With ThisWorkbook.Worksheets("Upload")
Set datrng = .Range(.Cells(1, 1), .Cells(.Rows.Count, "S").End(xlUp))
End With
dat = datrng.Value
ReDim newdat(1 To UBound(dat, 1), 1 To UBound(dat, 2))
j = 1
For i = 1 To UBound(dat, 1)
If dat(i, 19) <> 0 Then ' test for items you want to keep
For k = 1 To UBound(dat, 2)
newdat(j, k) = dat(i, k)
Next
j = j + 1
End If
Next

datrng = newdat
End Sub

关于excel - 通过自动过滤器删除需要太长时间,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34028430/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com