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

实用场景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

最后

以上就是干净期待为你收集整理的单元格区域查找指定内容并删除指定内容所在单元格对应的行或列的全部内容，希望文章能够帮你解决单元格区域查找指定内容并删除指定内容所在单元格对应的行或列所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。