Question

excel vba 删除符合条件的行

excel里有两个表，表a和表b，如果表b里第1列的某行某个单元格的值，和表a里第2列的某个单元格的值相同，那么删除表b里这一行，求代码！
非常感谢各位大大的帮助！

Answer 1

rows("x:n").clearcontents
这句有两处不对：
一是对象引用，x和n是你要删除的行号，引号内的xn就成了字符，无法用对应的数字替换，应为
rows(x
&":"&
n)
第二是方法错误：clearcontents
方法只是清除内容，并不删除行，应改为delete方法
这句应改为：rows(x
&":"&
n).delete

Answer 2

Option Explicit
Sub Sdel()
    Dim a As Worksheet, b As Worksheet
    Dim la As Integer, lb As Integer
    Dim i As Integer
    Set a = Sheets("a") '这里设置表a的名字
    Set b = Sheets("b") '这里设置表b的名字
    la = a.[b60000].End(xlUp).Row
    lb = b.[b60000].End(xlUp).Row
    For i = lb To 1 Step -1
        If Application.CountIf(a.Range("b1:b" & la), b.Range("b" & i)) Then b.Range("b" & i).EntireRow.Delete
    Next i
End Sub

追问

您好，非常感谢您的回复。
你的代码很棒，可以实现我要的功能，而且代码简练。
现在有个新情况，如果只是部分字符相同的话，比如只有某几个字符相同而不是完全相同的情况下，如何修改这个代码呢？
期待您的回答！

追答

没太明白你的意思，举个例子吧

追问

比如假设表b里第1列的某行某个单元格的值是，“ China Person”，表a里第2列的某个单元格的值是，“USA Person”，他们之间有相同的字符“Person”，但单元格又不是完全相同，那么同样删除这样行。

追答

数据都是这种用空格分隔的单词吗

追问

不好意思 ，条件弄错了。修改条件为：
假设表b里第1列的某行某个单元格的值是，“ China Person”，表a里第2列的某个单元格的值是，“ * Person”，星号表示任意字符，符合这样的条件就删除b表里这样的行。

追答

这样不好挑了，越弄我越糊涂了，是不是 两个区域的单元格里面的字符串，都是以空格间隔的单词，比如 “this will sad” 这样的，
还是 “GreenTea”，“RedTea” 这样的
如果是第二种，那我没办法弄，这种牵扯到分词，算法高级了，我没接触过，

第一种那样的，有明显分隔的可以用，分隔号不一定是空格，逗号，句号，甚至某个单词或者字符都可以

追问

很抱歉可能我没说明白。
我的意思是，只要b表的单元格里的字符肯定包含a表的单元格的字符，那么b表符合的行就删除。
如b表是“China Person”，而a表是 “Person”，b表包含a表的字符，那么就属于符合的。而a表不必完全跟b表相同。

追答

Option Explicit
Sub Sdel()
    Dim a As Worksheet, b As Worksheet
    Dim la As Integer, lb As Integer
    Dim i As Integer, j As Integer
    Set a = Sheets("a")    '这里设置表a的名字
    Set b = Sheets("b")    '这里设置表b的名字
    la = a.[b60000].End(xlUp).Row
    lb = b.[b60000].End(xlUp).Row
    For i = lb To 1 Step -1
        For j = 1 To la
            If InStr(1, utol(b.Range("b" & i)), utol(a.Range("b" & j))) > 0 Then
                b.Range("b" & i).EntireRow.Delete
                Exit For
            End If
        Next j
    Next i
End Sub
Private Function utol(ByVal str As Variant)
    Dim i As Integer
    For i = 1 To Len(str)
        utol = utol & LCase(Mid(str, i, 1))
    Next i
End Function

Answer 3

在辅助列用COuntif函数，不需要删除的就是0，排序一下，大于零的一块删除。

Answer 4

用字典法应该容易