用VB代码删除电子表格中含某关键的表格

您可以使用以下代码来删除电子表格中含有特定关键字的行：

Sub DeleteRows()
Dim i As Long
Dim lastRow As Long
Dim searchString As String

' 设置要搜索的字符串
searchString = "关键字"

' 获取电子表格中的最后一行
lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

' 从最后一行开始循环搜索
For i = lastRow To 1 Step -1
' 如果找到包含搜索字符串的单元格，则删除整行
If InStr(Cells(i, 1).Value, searchString) > 0 Then
Rows(i).Delete
End If
Next
End Sub

请注意，这个代码只会删除第一列（即列 A）中包含搜索字符串的行。如果要在其他列中搜索，则需要修改代码。例如，如果要在第二列中搜索，则可以将代码中的`Cells(i, 1)`替换为`Cells(i, 2)`。