用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)。