判断一列中=0所在的行，并删除，几十万条数据

xs0231221

网海遨游 发表于 2020-1-29 14:48
问题可能出现在你的名表上.

Sub test()

您给我个QQ，我把原文件给你传过去吧
源文件太大，16M，30多万条数据

一把小刀闯天下

xs0231221 发表于 2020-1-29 14:48
能留个QQ吗？

每秒处理10w条数据应该没有问题，，，
I10000.rar (1.4 MB, 下载次数: 33)

2020-1-29 15:06 上传

点击文件名下载附件

mydna

hongzefm

xs0231221 发表于 2020-1-29 13:57
老师，这个怎么把不是0的数据也给删除了

在蓝桥老师的那个代码稍加修改就可以，老师是用的正序，这样在删除的时候，会把不是0的也给删除了，这个要倒序删除就可以，
修改如下代码：For i= 2 To UBound(Arr)
为
For i=UBound(Arr) to 2 step -1
即可，你试试看

一把小刀闯天下

mydna 发表于 2020-1-29 15:28

可以开个主题，把问题说清楚就可以啦

我这2.9+才可能上班，少出门多上网，，，

1007467564

hongzefm 发表于 2020-1-29 18:13
在蓝桥老师的那个代码稍加修改就可以，老师是用的正序，这样在删除的时候，会把不是0的也给删除了，这个 ...

对的，删行应该倒着删

opiona

删除行 如果多速度快不了
换个思路: 只提取不是 0 的全部数据
I103.rar (1.43 MB, 下载次数: 4)

2020-1-29 21:02 上传

点击文件名下载附件

1.     Set SH1 = Worksheets("Sheet0")
   
2.     Set SH2 = Worksheets("结果")
   
3.    
   
4.    
   
5.     Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
   
6.     StrSQL = "SELECT 供应商代码,商品代码,单价"
   
7.     StrSQL = StrSQL & " FROM [" & SH1.Name & "$]"
   
8.     StrSQL = StrSQL & " WHERE NOT 单价 IS NULL AND 单价<>0"
   
9.    
   
10.     SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, True)
    
11.    
    
12.     SH2.Range("A2:C1048576").ClearContents
    
13.     SH2.Range("A1").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR

复制代码

answer6141

蓝桥玄霜 发表于 2020-1-29 13:41
删除的代码：

蓝版好办法

answer6141

xs0231221 发表于 2020-1-29 13:57
老师，这个怎么把不是0的数据也给删除了

Sub test()
    Dim i, irow As Integer
    Dim arr, col
    Dim rng As Range
    arr = Sheets(1).UsedRange
    col = InputBox("请输入您要查询的列", , "123456")
   
    For i = 2 To UBound(arr)
        If arr(i, col) = 0 Then
            If rng Is Nothing Then Set rng = Rows(i) Else Set rng = Union(rng, Rows(i))
            Debug.Print i
        End If
    Next
    If Not rng Is Nothing Then rng.Delete shift:=xlUp
End Sub
抄下蓝版的代码，加了个inputbox

shenjianrong163

opiona 发表于 2020-1-29 21:02
删除行 如果多速度快不了
换个思路: 只提取不是 0 的全部数据

GET_SQL_To_Arr出现子过程或函数未定义