PowerShell操作Excel：列转置为行复制粘贴失败求助

阿华AIGC实验室

2026-5-25

解决PowerShell中Excel列转置粘贴到非连续行的问题

我之前也碰到过类似的非连续列粘贴的坑，直接用Copy()+PasteSpecial()转置确实容易出问题，尤其是目标区域不是连续单元格的时候——Excel的Range对象对非连续区域的处理逻辑和连续区域不一样，而且有时候剪贴板同步也会有隐性问题。咱们换个更可靠的方式：直接读取源数据到数组，转置后逐个写入目标列，这样完全绕开剪贴板的问题，也能精准控制每个单元格的写入位置。

完整解决方案脚本

# 创建Excel应用对象，调试时可设Visible为$true，上线后改$false
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $true
$excel.DisplayAlerts = $false

try {
    # 替换为你的工作簿路径
    $workbook = $excel.Workbooks.Open("C:\Your\File\Path\example.xlsx")

    # 替换为你的源工作表和目标工作表名称
    $sourceSheet = $workbook.Worksheets["源表名称"]
    $targetSheet = $workbook.Worksheets["目标表名称"]

    # 获取A列所有非空数据（从A1到最后一行非空单元格）
    $lastRow = $sourceSheet.Cells($sourceSheet.Rows.Count, 1).End(-4162).Row # -4162对应xlUp常量
    $sourceRange = $sourceSheet.Range("A1:A$lastRow")
    $sourceData = $sourceRange.Value2

    # 将二维列数组转置为一维行数组
    $transposedData = for ($i=1; $i -le $sourceData.Count; $i++) {
        $sourceData[$i, 1]
    }

    # 定义需要写入的目标列（按你的需求填写，比如O、P、R...）
    $targetColumns = @("O", "P", "R", "S", "U", "V") # 可根据实际需求增减列

    # 循环将转置后的数据写入对应列的第2行
    for ($index=0; $index -lt $transposedData.Count -and $index -lt $targetColumns.Count; $index++) {
        $column = $targetColumns[$index]
        $targetSheet.Range("$column`2").Value2 = $transposedData[$index]
    }

    $workbook.Save()
    Write-Host "数据写入完成！"
}
catch {
    Write-Error "执行出错：$_"
}
finally {
    # 清理COM对象，避免Excel进程后台残留
    $workbook.Close()
    $excel.Quit()
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($sourceRange) | Out-Null
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($sourceSheet) | Out-Null
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($targetSheet) | Out-Null
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($workbook) | Out-Null
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
    [System.GC]::Collect()
    [System.GC]::WaitForPendingFinalizers()
}