如何高效删除符合条件的行

itssee

如题,或者保留符合条件的行,以解决我程序速度慢的问题

zpy2

程序速度慢

数据库？

itssee

zpy2 发表于 2022-11-19 09:47
程序速度慢

数据库？

1. Sub Clear1()
   
2.     Dim i&, j&, k&, arr() As String, brr
   
3.     arr = Split(Replace(TextBox1.Text, Chr(13), ""), Chr(10))
   
4.     brr = Sheets("Scrap data").UsedRange
   
5.     Sheets("Scrap data").UsedRange.Clear
   
6.     Sheets("Scrap data").Range("a1").Resize(1, UBound(brr, 2)) = Application.WorksheetFunction.Index(brr, 1) '先写标题
   
7.     k = 2
   
8.     For i = 2 To UBound(brr, 1)
   
9.         For j = LBound(arr) To UBound(arr)
   
10.             If brr(i, 6) = arr(j) Then
    
11.                 Sheets("Scrap data").Range("a" & k).Resize(1, UBound(brr, 2)) = Application.WorksheetFunction.Index(brr, i)
    
12.                 k = k + 1
    
13.             End If
    
14.         Next j
    
15.     Next i
    
16. End Sub

复制代码

                Sheets("Scrap data").Range("a" & k).Resize(1, UBound(brr, 2)) = Application.WorksheetFunction.Index(brr, i)
最后一句希望能将附合要求的项整体放进数组,最后再输出到表格,就会快;我不确定怎么写

Qinnuomi

增加辅助列，把不符合的行空白显示，然后调用函数删除空白行会快一些

itssee

Qinnuomi 发表于 2022-11-25 06:34
增加辅助列，把不符合的行空白显示，然后调用函数删除空白行会快一些

这样做需要数分钟,还中卡死机;;
已找到用数组的方法3s钟可以

Qinnuomi

itssee 发表于 2022-11-27 00:02
这样做需要数分钟,还中卡死机;;
已找到用数组的方法3s钟可以

不是判断用if判断空白删除，我之前批量隐藏的时候也是很卡，后来看到别人调用这个函数，加一列隐藏辅助的条件列,超级快，可以试一下

Sheets(1).Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete