[文件操作] [已解决]求助批处理EXCEL数据修改

liaoguinan

有没有办法通过判断B列的数据以及A列的数据得出C列的数据

Five66

可以 ,相当于根据B列汇总了

idwma

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$fn='aaaaaa.xlsx'
$a=new-object -com excel.application
$a.visible=1
$b=$a.workbooks.open("$(dir $fn)")
$c=$b.sheets.item(1)
$d=$c.usedrange
$e=@{}
for($i=4;$i -lt $d.count;$i+=3){
 $f=$d.cells.item($i)
 $e[$f.next.text]+=,$f.text
}
$i=3
$e.keys|%{$d.cells.item(($i+=3)).value()="$_ "+($e[$_] -join '、')}
复制代码

如果内容太多用转csv的方式会快一点

idwma

发现以前理解错了，不用转格式也可以很快。

#@&cls&powershell "type '%~0'|out-string|iex"&pause&exit
$fn='aaaaaa.xlsx'
$a=new-object -com excel.application
$a.visible=1
$b=$a.workbooks.open("$(dir $fn)")
$c=$b.sheets.item(1)
$d=$c.usedrange.cells.value()
$i=$d.length/($d.rank+1)
$e=@{}
1..$i|%{$e[$d[$_,2]]+=,$d[$,1]}
$i=1
$e.keys|%{$d[($i+=1),3]="$_ "+($e[$_] -join '、')}
$c.usedrange.cells.value()=$d
复制代码

liaoguinan

回复 3# idwma


    这个能实现下面那个代码就出错了

idwma

第10行漏了个下划线补上应该可以了

1..$i|%{$e[$d[$_,2]]+=,$d[$_,1]}
复制代码