|
删除行 如果多速度快不了
换个思路: 只提取不是 0 的全部数据
I103.rar
(1.43 MB, 下载次数: 4)
- Set SH1 = Worksheets("Sheet0")
- Set SH2 = Worksheets("结果")
-
-
- Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName '//OFFICE2003,2007 通用
- StrSQL = "SELECT 供应商代码,商品代码,单价"
- StrSQL = StrSQL & " FROM [" & SH1.Name & "$]"
- StrSQL = StrSQL & " WHERE NOT 单价 IS NULL AND 单价<>0"
-
- SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, True)
-
- SH2.Range("A2:C1048576").ClearContents
- SH2.Range("A1").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
复制代码
|
评分
-
1
查看全部评分
-
|