如何用VBA搜索指定值并删除对应行A-E列单元格而非整行？

需要在指定区域搜索目标值，找到后删除对应行的A列至E列单元格（而非整行，因为工作表其他列还有数据）。例如在B4单元格找到目标值时，删除A4-E4区域的单元格。

Sub DeleteCells2()
 Dim rng As Range
 Dim i As Integer, counter As Integer, ib As String

ib = InputBox("Geben Sie bitte die PLZ und den Ort ein")
 '设置要评估的区域为rng。
 Set rng = Range("C2:C99")

 '初始化i为1
 i = 1

 '循环遍历要评估区域的所有行
 For counter = 1 To rng.Rows.Count

      '如果区域中的第i个单元格等于输入值，则删除整行，否则i自增1
        If rng.Cells(i) = ib Then
            rng.Cells(i).EntireRow.Delete
        Else
            i = i + 1
        End If

  Next

End Sub

Sub DeleteTargetCells()
    Dim rng As Range
    Dim i As Integer, ib As String
    
    ib = InputBox("请输入邮编和地区")
    '设置搜索区域为C2:C99
    Set rng = Range("C2:C99")
    
    '从后往前遍历，避免删除单元格后索引错乱
    For i = rng.Rows.Count To 1 Step -1
        If rng.Cells(i).Value = ib Then
            '删除对应行的A到E列单元格，选择xlShiftUp让下方单元格上移
            Range(Cells(rng.Cells(i).Row, "A"), Cells(rng.Cells(i).Row, "E")).Delete Shift:=xlShiftUp
        End If
    Next i
End Sub

• 替换整行删除逻辑：用Range(Cells(行号, "A"), Cells(行号, "E"))精准定位目标行的A-E列区域，执行删除操作
• 改为从后往前遍历：从前往后删除会导致后续行索引错乱，出现漏删情况；从后往前遍历可避免这个问题
• 简化循环逻辑：移除多余的counter变量，直接用i遍历行号
• 调整输入框提示为中文（如需保留德文可改回原提示文本）

内容的提问来源于stack exchange，提问作者Tobias