terse

用PS吧 应该可以的

terse

运行前 请备份文件

<# :
@echo off
powershell -noprofile -NoLogo "iex (${%~f0} | out-string)"
pause$exit 
#>
function get-data([int]$startrow, [int]$startcol, [int]$endrow, [int]$endcol, [string]$pat, [string]$file1, [string]$file2) {
	$excel = New-Object -ComObject Excel.Application
	$excel.Visible = $false
	$wb = $excel.Workbooks.Open($file2)
	$ws = $wb.Sheets.Item(1)
	$sr = $ws.Range($ws.Cells.Item($startrow, $startcol), $ws.Cells.Item($endrow, $endcol))
	$sd = $sr.Value2
	$dwb = $excel.Workbooks.Open($file1)
	$dws = $dwb.Sheets.Item(1)
	$fc = $dws.UsedRange.Find($pat)
	if ($fc -ne $null) {
		$rown = $fc.Row
		for ($i = 0; $i -le $endrow-$startrow; $i++) {
			$dws.Rows.Item($rown + 1).EntireRow.Insert()
		}
		$dsr = $dws.Range($dws.Cells.Item($rown + 1, $startcol), $dws.Cells.Item($rown + 1 + ($endrow - $startrow), $endcol))
		$dsr = $dsr.Resize($sr.Rows.Count, $sr.Columns.Count)
		$dsr.Value2 = $sd
		$sr.Copy()
		$dsr.PasteSpecial(-4122)
		for ($i = 1; $i -le $dsr.Rows.Count; $i++) {
			 $val = $dsr.Cells.Item($i, 1).Offset(-1, 0)
			 $dsr.Cells.Item($i, 1).Value2 = $val.Value2
		}
	}
	$excel.DisplayAlerts = $false
	$wb.Close($false)
	$dwb.Close($true)
	$excel.Quit()
}
$path=$PWD.Path
$file1 = "$path\元数据.xlsx"
$file2 = "$path\插入内容.xlsx"
get-data -startrow 1 -startcol 2 -endrow 4 -endcol 9  -pat 1009 -file1 $file1 -file2 $file2
get-data -startrow 6 -startcol 2 -endrow 8 -endcol 9  -pat 1018 -file1 $file1 -file2 $file2
get-data -startrow 10 -startcol 2 -endrow 11 -endcol 9  -pat 1023 -file1 $file1 -file2 $file2
复制代码

加一个，换为复制对象

<# :
@echo off
powershell -noprofile -NoLogo "iex (${%~f0} | out-string)"
pause$exit 
#>
function get-data([int]$startrow, [int]$startcol, [int]$endrow, [int]$endcol, [string]$pat, [string]$file1, [string]$file2) {
	$excel = New-Object -ComObject Excel.Application
	$excel.Visible = $false
	$wb = $excel.Workbooks.Open($file2)
	$ws = $wb.Sheets.Item(1)
	$sr = $ws.Range($ws.Cells.Item($startrow, $startcol), $ws.Cells.Item($endrow, $endcol))
	$dwb = $excel.Workbooks.Open($file1)
	$dws = $dwb.Sheets.Item(1)
	$fc = $dws.UsedRange.Find($pat)
	if ($fc -ne $null) {
		$rown = $fc.Row
		for ($i = 0; $i -le $endrow-$startrow; $i++) {
			$dws.Rows.Item($rown + 1).EntireRow.Insert()
		}
		$dsr = $dws.Range($dws.Cells.Item($rown + 1, $startcol), $dws.Cells.Item($rown + 1 + ($endrow - $startrow), $endcol))
		$dsr = $dsr.Resize($sr.Rows.Count, $sr.Columns.Count)
		$sr.Copy()
		$dsr.PasteSpecial(-4104)
		for ($i = 1; $i -le $dsr.Rows.Count; $i++) {
			$val = $dsr.Cells.Item($i, 1).Offset(-1, 0)
			$dsr.Cells.Item($i, 1).Value2 = $val.Value2
		}
	}
	$excel.DisplayAlerts = $false
	$wb.Close($false)
	$dwb.Close($true)
	[Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
}
$path=$PWD.Path
$file1 = "$path\元数据.xlsx"
$file2 = "$path\插入内容.xlsx"
get-data -startrow 1 -startcol 2 -endrow 4 -endcol 9  -pat 1009 -file1 $file1 -file2 $file2
get-data -startrow 6 -startcol 2 -endrow 8 -endcol 9  -pat 1018 -file1 $file1 -file2 $file2
get-data -startrow 10 -startcol 2 -endrow 11 -endcol 9  -pat 1023 -file1 $file1 -file2 $file2
复制代码

terse

$insertRow !insertRow!

terse

你这个是直接从PS里拿来的吧 变量改一下 多个Sheet就改这里是多少就改多少  $wb.Sheets.Item(2)，文件不在同一个的话 就少一个文件 复制上一行数据的话 参照
....
$val = $dsr.Cells.Item($i, 1).Offset(-1, 0) 这里是上一行的值
$dsr.Cells.Item($i, 1).Value2 = $val.Value2 这里是赋值
....

terse

回复 18# haichuan5121
循环调用函数试试，xls文件问题也许是版本问题， 不知你那边为什么不行，环境不清楚，不好说

terse

这样?
$file1 = @(file1,file2,file3)
$file2 = '.\插入内容.xlsx'

terse

回复 22# haichuan5121
不把文件路径写入文本，就把文件路径写入数组，然后传函数，这样吗，要不你就用Get-Content提取文件

terse

回复 25# haichuan5121
这样行不

    if (!$found) {
        Write-Host "Pattern $pat not found in any file."

        $excel.DisplayAlerts = $false
        $wb.Close($false)
        $excel.Quit()
        [Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
        return
    }
复制代码

terse

回复 27# haichuan5121

晕了，以为你就只要操作一次文件插入，先说说加的$found意图是什么

terse

没有搜索到关键词 就不执行下面的

if (!$found) {
    Write-Host "Pattern $pat not found in any file."
} else {
    $excel.DisplayAlerts = $false
    $wb.Close($false)
    $excel.Quit()
    [Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
}
复制代码

terse

回复 30# haichuan5121
能处理就好，就是觉得有点乱，还不如直接让ps在函数外面处理好；数组在函数外面循环，然后传进函数是两个文件加关键词及行列数；
行列数从文件的单元表格的背景色来获取要增加代码，行列固定的话不如直接按数组一次性传进函数，你现在是一个文件替换三次的话，是不是要传三次；
当然，怎样方便怎样来吧