使用PowerShell搜索Excel指定列头并删除对应列的问题求助

• 列头固定位于工作表首行，无需遍历所有行查找匹配项
• 现有嵌套if逻辑要求指定列按Col4→Col6→Col7→Col19→Col22→Col27的顺序连续排列才会命中，和你“只要列头匹配就删除”的需求不符
• 使用多条件或判断时，命中后仅递增列索引，未判断是否超出总列数，导致行索引一直停留在1进入死循环
• 删除列时如果从左往右操作，前面的列删除后后续列的索引会自动前移，会出现漏删情况，需要从右往左遍历列
• 代码存在cells.Item参数顺序写反的问题，Excel单元格取值参数为cells.Item(行号, 列号)，你部分位置写反了行列参数

直接遍历首行所有列，匹配到目标列头就标记，最后统一从右往左删除标记的列即可，逻辑更简洁也不会出现循环异常。

# 定义要删除的列头列表
$targetCols = @('Col4', 'Col6', 'Col7', 'Col19', 'Col22', 'Col27')
$Results = "C:\Temp\Results.xls"

$excel = New-Object -Com Excel.Application -Property @{Visible = $false}
# 禁止弹窗提示
$excel.DisplayAlerts = $false

try {
    # 打开Excel文件
    $workbook = $excel.Workbooks.Open($Results)
    $sheet = $workbook.ActiveSheet
    $found = $false

    # 处理首行如果是/Test的情况
    $firstCellText = $sheet.Cells.Item(1, 1).Text
    if($firstCellText -eq "/Test"){
        $sheet.Cells.Item(1, 1).EntireRow.Delete()
    }

    $usedRange = $sheet.UsedRange
    $colCount = $usedRange.Columns.Count
    # 存储需要删除的列索引
    $colsToDelete = @()

    # 遍历首行所有列找匹配项
    for ($col = 1; $col -le $colCount; $col++) {
        $headerText = $sheet.Cells.Item(1, $col).Text.Trim()
        if ($targetCols -contains $headerText) {
            $colsToDelete += $col
            $found = $true
            Write-Host -ForegroundColor Green "找到匹配列：$headerText，列索引：$col"
        }
    }

    if ($found) {
        # 从右往左删除列，避免索引偏移导致漏删
        for ($i = $colsToDelete.Count - 1; $i -ge 0; $i--) {
            $sheet.Cells.Item(1, $colsToDelete[$i]).EntireColumn.Delete()
        }
        Write-Host -ForegroundColor Green "所有匹配列删除完成"
    } else {
        Write-Host -ForegroundColor Red "未找到匹配列"
    }

    # 保存关闭
    $workbook.Close($true)
}
catch {
    Write-Host -ForegroundColor Red "操作出错：$_"
    # 出错也强制关闭工作簿避免残留
    $workbook.Close($false)
}
finally {
    # 完全释放COM对象避免Excel进程残留
    $excel.Quit()
    [Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
    [GC]::Collect()
    [GC]::WaitForPendingFinalizers()
}

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