string2 VBA -如果单元格包含string1、string2或string3等，则删除整行

在VBA中，可以使用字符串函数和条件语句来实现删除包含特定字符串的整行。下面是一个示例代码：

Sub DeleteRowsContainingStrings()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim searchString1 As String
    Dim searchString2 As String
    Dim searchString3 As String
    
    ' 设置要搜索的字符串
    searchString1 = "string1"
    searchString2 = "string2"
    searchString3 = "string3"
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 从最后一行开始向上遍历每一行
    For i = lastRow To 1 Step -1
        ' 检查当前行是否包含要搜索的字符串
        If InStr(1, ws.Cells(i, 1).Value, searchString1, vbTextCompare) > 0 _
            Or InStr(1, ws.Cells(i, 1).Value, searchString2, vbTextCompare) > 0 _
            Or InStr(1, ws.Cells(i, 1).Value, searchString3, vbTextCompare) > 0 Then
            ' 如果包含，则删除整行
            ws.Rows(i).Delete
        End If
    Next i
End Sub

上述代码中，首先定义了要搜索的字符串 string1、string2 和 string3。然后，通过 Set 语句将要操作的工作表赋值给变量 ws。接下来，使用 Cells 和 End 方法获取最后一行的行号。然后，使用一个逆向的循环从最后一行开始遍历每一行。在循环中，使用 InStr 函数检查当前行的第一个单元格是否包含要搜索的字符串。如果包含，则使用 Delete 方法删除整行。

请注意，上述代码中的工作表名称应根据实际情况进行修改。此外，该代码仅删除包含指定字符串的第一列单元格的整行。如果要删除其他列中包含指定字符串的整行，可以相应地修改代码中的列索引。

对于腾讯云相关产品和产品介绍链接地址，由于要求不能提及具体的云计算品牌商，无法提供相关链接。但是，腾讯云提供了丰富的云计算服务，包括云服务器、云数据库、云存储等，可以根据具体需求选择适合的产品。