用VBA删除（或保留）符合条件的整行数据

蜀郭浪君

请各位老师帮忙看看，谢谢！

批量删除行数据.rar (15.39 KB, 下载次数: 9)

2023-5-18 12:49 上传

点击文件名下载附件

蜀郭浪君

老师们帮帮忙

简七

把保留的库房和删除的供应商与流水表放到了一张表里,不对流水表原数据操作,直接筛选出数据放到新增工作表

简七

1. Sub demo()
   
2. 
   
3.     Dim conn As Object, connectionStr$, sqlStr$
   
4.    
   
5.     Set conn = CreateObject("Adodb.Connection")
   
6.    
   
7.     connectionStr = "Provider=MicroSoft.ACE.OLEDB.12.0;Extended Properties='excel 12.0;HDR=YES';Data Source=" & ThisWorkbook.FullName
   
8.    
   
9.     conn.Open connectionStr
   
10.    
    
11.     sqlStr = "SELECT 库房,供应商 FROM (SELECT 库房,供应商 FROM [流水表$] WHERE NOT 供应商 IN(SELECT 供应商 FROM [供应商删除$])) WHERE 库房 IN(SELECT 库房 FROM [库房保留$])"
    
12.    
    
13.     Application.ScreenUpdating = False
    
14.    
    
15.     Application.DisplayAlerts = False
    
16. 
    
17.     With ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
    
18.    
    
19.         .Name = "流水表" & Format(Now, "yymmddhhmmss")
    
20.         
    
21.         .Range("A2").CopyFromRecordset conn.Execute(sqlStr)
    
22.         
    
23.         .Range("A1:B1").Value = Array("库房", "供应商")
    
24.     End With
    
25.    
    
26.     conn.Close
    
27.    
    
28.     Set conn = Nothing
    
29.    
    
30.     Application.DisplayAlerts = True
    
31.    
    
32.     Application.ScreenUpdating = True
    
33. End Sub
    

复制代码

fanyoulin

删行比较简单；

需要删除的内容可在“供应商管理”工作表中定义，没必要在另一个文件操作，跨文件操作我感觉没必要；
不需要的仓库也在供应商管理中定义，总之所有不需要的内容都在那里定义即可；

蜀郭浪君

简七 发表于 2023-5-18 13:46
把保留的库房和删除的供应商与流水表放到了一张表里,不对流水表原数据操作,直接筛选出数据放到新增工作表

用sql来处理挺好，只是我的流水表 有30多列，所以希望是在原表的基础上进行删除，便于后续继续处理

准提部林

以同一工作表寫範例//跨檔自行處理
Xl0000198.rar (12.56 KB, 下载次数: 5)

2023-5-18 13:58 上传

点击文件名下载附件

蜀郭浪君

fanyoulin 发表于 2023-5-18 13:47
删行比较简单；

需要删除的内容可在“供应商管理”工作表中定义，没必要在另一个文件操作，跨文件操作我 ...

主要是操作那张表经常变动，每次处理的都不一样，所以把一些能固化的单独用另外的工作簿来记录，便于维护。

sdytsxd991122

参与

简七

蜀郭浪君 发表于 2023-5-18 13:51
用sql来处理挺好，只是我的流水表 有30多列，所以希望是在原表的基础上进行删除，便于后续继续处理

嗯 这样啊 那把新表保留删除旧表就好了