海量数据的处理

阿姆拉姆

我有个问题请大家帮忙。
一个表，有海量数据，30-40万条，7-80列，筛选某列不符合条件的所有行，然后删去。人工操作很简单，但用VB写了代码，执行起来就非常慢，要30多分钟。
这里就想，有没有更简单的办法呢？或者更高效的VB呢？或许我写太啰嗦了？请大家给看看，因为每个月需要这样操作的表太多了。

Sub 删除不满足BW列条件行()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim lastrow As Long
    lastrow = ws.Cells(ws.Rows.Count, "bw").End(xlUp).Row
   
    Dim i As Long
    For i = lastrow To 2 Step -1
        If ws.Cells(i, "bw").Value <> "是" Then
            ws.Rows(i).Delete
        End If
    Next i
End Sub

LIUZHU

逐行删除肯定慢，一般是汇总在一起，一把删除，当然将符合条件的数据提取到新的数组，再写入一个新表，速度更快

靓仔buddy

可以先找到需要删的连接起来，最后执行一句删除命令。可以提升效率。

1. Sub test()
   
2. Dim ar, br As Range
   
3. For i = 2 To 30
   
4.     Set ar = Cells(i, 3)
   
5.     If ar.Value = 2 Then           '第三列=2的
   
6.         If br Is Nothing Then
   
7.             Set br = ar
   
8.         Else
   
9.             Set br = Union(br, ar)
   
10.         End If
    
11.     End If
    
12. Next
    
13. 'br.Select
    
14. If Not br Is Nothing Then br.EntireRow.Delete
    
15. End Sub

复制代码

taller

ykcbf1100

数据量大的话，用数组会快很多。

1. Sub 删除不满足BW列条件行()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     With ActiveSheet
   
5.         r = .Cells(Rows.Count, "bw").End(xlUp).Row
   
6.         c = .UsedRange.Columns.Count
   
7.         arr = .[a1].Resize(r, c)
   
8.         ReDim brr(1 To r, 1 To c)
   
9.         For i = 2 To UBound(arr)
   
10.             If arr(i, 75) = "是" Then
    
11.                 m = m + 1
    
12.                 For j = 1 To UBound(arr, 2)
    
13.                     brr(m, j) = arr(i, j)
    
14.                 Next
    
15.             End If
    
16.         Next
    
17.         .UsedRange.ClearContents
    
18.         .[a1].Resize(m, c) = brr
    
19.     End With
    
20.     Application.ScreenUpdating = True
    
21.     MsgBox "OK！"
    
22. End Sub
    

复制代码

gwjkkkkk

这个还得是数组处理。。。

阿姆拉姆

taller 发表于 2024-4-15 01:28

谢谢啦。
运行到SET VISRNG=.SPECIALCELLS(XLCELLTYPEVISIBLE)这句报错了，不知道为什么，能帮忙看看吗

阿姆拉姆

ykcbf1100 发表于 2024-4-15 07:54
数据量大的话，用数组会快很多。

谢谢帮助。
试了下，运行到arr=.[a1].resizer(r,c)报错了，看不懂，能帮忙看看不

taller

阿姆拉姆 发表于 2024-4-15 21:21
谢谢啦。
运行到SET VISRNG=.SPECIALCELLS(XLCELLTYPEVISIBLE)这句报错了，不知道为什么，能帮忙看看吗

没有附件，无法确认你输入的代码是否正确

阿姆拉姆

taller 发表于 2024-4-15 23:12
没有附件，无法确认你输入的代码是否正确

附件太大了。
这个代码是楼上的大虾写的，我照抄试了下报错