PowerShell操作Excel：如何删除指定区域内含特定字符的单元格（xlShiftLeft）

清除包含目标字符的单元格内容 #

如果你要精准清除内容恰好为0的单元格（而非替换单元格内的0字符），可以通过遍历目标区域实现：

Dim cell As Range
For Each cell In $worksheet7.Range("D2:D1001")
    ' 匹配单元格值完全等于0的情况
    If cell.Value = 0 Then
        cell.ClearContents
    End If
    ' 若需匹配内容包含0的单元格（比如"abc0def"），改用以下判断
    ' If InStr(cell.Value, "0") > 0 Then
    '     cell.ClearContents
    ' End If
Next cell

删除单元格并调整位置 #

如果是要直接删除包含目标字符的单元格（而非仅清除内容），必须使用反向循环避免因单元格移位漏处理：

Dim i As Long
' 从区域末尾往前遍历，防止删除单元格后后续单元格移位导致漏判
For i = 1001 To 2 Step -1
    With $worksheet7.Range("D" & i)
        ' 匹配值为0的单元格
        If .Value = 0 Then
            ' xlShiftUp：删除后下方单元格上移；xlShiftLeft：右侧单元格左移，按需选择
            .Delete Shift:=xlShiftUp
        End If
        ' 匹配内容包含0的单元格
        ' If InStr(.Value, "0") > 0 Then
        '     .Delete Shift:=xlShiftUp
        ' End If
    End With
Next i

关键说明 #

• 反向循环是核心：从后往前遍历能避免删除单元格后，后续单元格上移导致的遍历遗漏问题。
• 按需选择匹配逻辑：精准匹配单元格值用cell.Value = 目标值，模糊匹配内容包含目标字符用InStr函数。

内容的提问来源于stack exchange，提问作者Alex Gow Zaxxon