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

你可以使用以下 VBA 代码来删除电子表格中含有某个关键字的行：

Sub DeleteRows()
Dim rng As Range
Dim cell As Range
Dim delRng As Range

' 设置要搜索的范围
Set rng = Range("A1:D10")

' 遍历范围中的每个单元格
For Each cell In rng
' 如果单元格包含关键字 "delete"
If InStr(cell.Value, "delete") > 0 Then
' 将单元格所在的行添加到删除范围中
If delRng Is Nothing Then
Set delRng = cell.EntireRow
Else
Set delRng = Union(delRng, cell.EntireRow)
End If
End If
Next cell

' 删除删除范围
If Not delRng Is Nothing Then delRng.Delete
End Sub

这段代码会搜索 A1:D10 范围中的每个单元格，如果单元格中包含 "delete" 关键字，就会将这一行添加到删除范围中。最后，会删除删除范围中的所有行。

你可以根据需要修改搜索范围和关键字。