单元格区域查找指定内容并删除指定内容所在单元格对应的行或列

实用场景1.

       一个工作簿里包含有其他应收款、其他应付款、应收账款、应付账款工作表，同时还有其他工作表，现在要实现在上述几张工作表的第9行查找 内容为 摘要、期初余额、本期借方、本期贷方、借方累计、贷方累计 的单元格 所在的列，并将对应的列删除

Sub 按钮1_Click()

Dim sh As Worksheet

End Sub

实用场景2.

单元格区域查找指定内容并删除指定内容所在单元格对应的行

Sub 按钮1_Click()

A = InputBox("请输入需要删除包含的某特定字符", "输入框", v)
j = Trim(InputBox("请输入需要选择的列号", "输入框", 1))
 
For k = j To j
    For i = 1 To 65535
    
        Sheets(3).Cells(i, k).Select
         
        If Len(Sheets(3).Cells(i, k).Value) = 0 Then
            Exit For
        End If
        '包含A的场合
        'If InStr(Sheets(1).Cells(i, k).Value, A) <> 0 Then
        'A是字符串的场合（只等于A的场合）
        'If Sheets(1).Cells(i, k).Value = A Then
        'A是数字的场合（只等于A的场合）
        If Sheets(3).Cells(i, k).Value = CInt(A) Then
        
            B = i & ":" & i
            Sheets(3).Rows(B).Select
            Selection.Delete Shift:=xlUp
            
            '删除一行后，行号退回一个，复原
            i = i - 1
            
        End If
    Next i
Next k
 
Sheets(3).Cells(i, k).Select
MsgBox "删除操作完成！"
End Sub