删除包含指定关键字的行

cqz2022

例.rar (24.29 KB, 下载次数: 6)

2023-5-5 21:07 上传

点击文件名下载附件

求代码，实现：

在【小管家】工作表中，A2:A是全部人员姓名，
在【参数】工作表中，C2:C是手动输入的部分学生姓名，

运行代码后，
删除【小管家】A中与【参数】C中的同名人员所在行，整行删除。

例：
【参数】表中C2是“学生4”、C3是“学生6”……“学生10”、“学生15”
运行代码，实现 整行删除 【小管家】表中“学生4”、“学生6”所在行的所有内容，下方单元格上移
【参数】表内容，保持不变。

学生总数不确定，不要限定到44行，人数可能多或少

谢谢

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim rng As Range
   
5.     Dim d As Object
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     With Worksheets("参数")
   
8.         r = .Cells(.Rows.Count, 3).End(xlUp).Row
   
9.         If r = 1 Then
   
10.             Exit Sub
    
11.         End If
    
12.         arr = .Range("c1:c" & r)
    
13.         For i = 2 To UBound(arr)
    
14.             d(arr(i, 1)) = Empty
    
15.         Next
    
16.     End With
    
17.     With Worksheets("小管家")
    
18.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
19.         Set rng = .Rows(r + 1)
    
20.         arr = .Range("a1:a" & r)
    
21.         For i = 2 To UBound(arr)
    
22.             If d.exists(arr(i, 1)) Then
    
23.                 Set rng = Union(rng, .Rows(i))
    
24.             End If
    
25.         Next
    
26.         rng.Delete
    
27.     End With
    
28.    
    
29. End Sub
    

复制代码

chxw68

供参考。。

jinlei2006

1. Sub jj()
   
2. m = Sheets("小管家").[a65536].End(xlUp).Row
   
3. n = Sheets("参数").[c65536].End(xlUp).Row
   
4. For y = 1 To n
   
5.     For i = 1 To m
   
6.         If Sheets("小管家").Range("a" & i) = Sheets("参数").Range("c" & y) Then
   
7.            Sheets("小管家").Rows(i).Delete
   
8.         End If
   
9.     Next i
   
10. Next y
    
11. End Sub

复制代码

jinlei2006

数据量太大的话建议用字典，数组

ykcbf1100

参与一下，字典+数组

ykcbf1100

不用字典来一个

grf1973

。。。。。。。。。。。。。

grf1973

not in 后面的子集必须不能包含Null。不然筛选出来个0结果

grf1973

    Sql = "select * from [小管家$a1:k] where 姓名 not in (select 排除 from [参数$c1:c] where 排除 is not null)"
更妥当一点