用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" 关键字，就会将这一行添加到删除范围中。最后，会删除删除范围中的所有行。
你可以根据需要修改搜索范围和关键字。

相关问题

写一段VBA代码，可以删除Excel表格中的所有图片

Sub 删除所有图片()
Dim iShp As Shape
For Each iShp In ActiveSheet.Shapes
If iShp.Type = msoPicture Then
iShp.Delete
End If
Next iShp
End Sub

excel表格vba代码

以下是一些Excel表格VBA代码的示例：

获取工作簿中指定工作表的数据并存入数组：
Function get_arr(file, sh_name)
Dim wb As Workbook
Set wb = Workbooks.Open(file)
wb.Sheets(sh_name).Select
row_num = \[b65536\].End(xlUp).Row
col_num = ActiveSheet.UsedRange.Columns.Count
col_str = get_col(col_num) '获取列名称
arr = Sheets(sh_name).Range("a1:" & col_str & row_num)
wb.Close False
Set wb = Nothing
get_arr = arr
End Function

将当前工作表中的公式转换为数值：
Sub shuzhi()
row_num = \[a65536\].End(xlUp).Row
col_num = ActiveSheet.UsedRange.Columns.Count
col_str = get_col(col_num)
Range("A1:" & col_str & row_num).Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

添加新工作表并删除旧数据：

Function add_sheet(sh_name)
 '删除旧数据
 Application.DisplayAlerts = False
 For Each sht In Sheets
 If sht.Name = sh_name Then
     sht.Delete
 End If
 Next sht
 Application.DisplayAlerts = True
 '添加新工作表
 Sheets.Add After:=Sheets(Sheets.Count)
 Sheets(Sheets.Count).Name = sh_name


End Function
Sub ffa()
    row_num = [a65536].End(xlUp).Row
    col_num = ActiveSheet.UsedRange.Columns.Count
    col_str = get_col(col_num)
    arr = Range("A1:" & col_str & row_num)
    add_sheet("删除后")
    Sheets("删除后").Range("a1").Resize(row_num, UBound(arr, 2)) = arr
For i = row_num To 1 Step -1
    If Cells(1, i) = "同比" Or Cells(1, i) = "" Then '此处填写条件
        Columns(i).Delete
    End If
Next i

End Sub

希望以上代码能够帮到您。如果您有其他问题，请随时提问。
引用[.reference_title]

1 2 3 OFFICE Excel表格中常用的vba代码集锦[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2allinsert_cask~default-1-null.142^v91^control_2,239^v3^insert_chatgpt"}} ] [.reference_item]
[ .reference_list ]