[已解决]求助：VBA删除单元格内包含指定文本的表行

摩米

请问怎样使用VBA实现
把文字加到不相关里面A列下面
可以一键删除
原始数据A列里面包含不相关的文本的表行？

最佳答案

月排行榜 / 总排行榜

雨吧

2016-11-21 10:59

插入”模块“，将代码放入”模块“中

1. Sub YuBa()
   
2.     Dim arr, i&, j&
   
3.     arr = Sheets("筛选不相关").Range("a1").CurrentRegion
   
4.     With Sheets("原始数据")
   
5.         For j = 2 To UBound(arr)
   
6.             For i = [a65536].End(3).Row To 2 Step -1
   
7.                 If Range("a" & i) Like "*" & arr(j, 1) & "*" Then
   
8.                     Rows(i).Delete
   
9.                 End If
   
10.             Next
    
11.         Next
    
12.     End With
    
13. End Sub

复制代码

跳转到最佳答案楼层

雨吧

插入”模块“，将代码放入”模块“中

1. Sub YuBa()
   
2.     Dim arr, i&, j&
   
3.     arr = Sheets("筛选不相关").Range("a1").CurrentRegion
   
4.     With Sheets("原始数据")
   
5.         For j = 2 To UBound(arr)
   
6.             For i = [a65536].End(3).Row To 2 Step -1
   
7.                 If Range("a" & i) Like "*" & arr(j, 1) & "*" Then
   
8.                     Rows(i).Delete
   
9.                 End If
   
10.             Next
    
11.         Next
    
12.     End With
    
13. End Sub

复制代码

grf1973

1. Sub 筛选()
   
2.     tjrr = Sheets(2).[a1].CurrentRegion   '所有条件
   
3.     With Sheets(1)
   
4.         arr = .[a1].CurrentRegion     '源数据
   
5.         For i = 1 To UBound(arr)
   
6.             x = arr(i, 1)
   
7.             For j = 2 To UBound(tjrr)       '如果符合条件，第一格清空
   
8.                 tj = tjrr(j, 1)
   
9.                 If InStr(x, tj) > 0 Then arr(i, 1) = "": Exit For
   
10.             Next
    
11.         Next
    
12.         .[a1].CurrentRegion = arr
    
13.         .Range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).EntireRow.Delete    '根据第一格为空，删除整行
    
14.     End With
    
15. End Sub

复制代码

摩米

grf1973 发表于 2016-11-21 11:04

非常感谢{:1612:}

摩米

雨吧 发表于 2016-11-21 10:59
插入”模块“，将代码放入”模块“中

您的这个也不错，可以加上原始数据A列“单元格为空”和“单元格内文本重复”的，也删除表行么？

望帝春心

摩米 发表于 2016-11-21 11:27
您的这个也不错，可以加上原始数据A列“单元格为空”和“单元格内文本重复”的，也删除表行么？

2楼老师的代码不就可以了吗？

摩米

两个代码都可以实现 不过  雨吧  老师的结果更符合我的实际情况 ，非常感谢两位老师！