十万火急，求助各位大神

茉莉Molly810312 · 发表于 2023-12-25 16:05

非常着急，因为人数特别多，且都是重复性的工作，请教各位大神有没有好的办法？
需要把数据1的第8行数据插入到数据2的20行，并合计21行数据，然后再删除数据2的22-37行数据，如果再能批量改下格式就更好了，不过如果能帮忙数据完成已经非常感谢了。

wanghan519 · 发表于 2023-12-25 16:54

在数据2里写的代码，也不知对不对

茉莉Molly810312 · 发表于 2023-12-25 19:02

wanghan519 发表于 2023-12-25 16:54
在数据2里写的代码，也不知对不对

非常感谢，好像可以哎，但是我有好多人，会很据人名来匹配吗？

茉莉Molly810312 · 发表于 2023-12-25 19:15

wanghan519 发表于 2023-12-25 16:54
在数据2里写的代码，也不知对不对

全部人员放进去好像就不行了

茉莉Molly810312 · 发表于 2023-12-25 19:21

wanghan519 发表于 2023-12-25 16:54
在数据2里写的代码，也不知对不对

又试了一个人，好像也不行，是把代码放在数据2，然后打开结果，就可以了吗

wanghan519 · 发表于 2023-12-26 02:13

茉莉Molly810312 发表于 2023-12-25 19:02
非常感谢，好像可以哎，但是我有好多人，会很据人名来匹配吗？

目前的只是根据字面的描述去做，不支持多个人，需要提供附件，说清楚多个人是怎样的格式，怎么用姓名匹配，现在靠猜也猜不出来啊。。。

沈默00 · 发表于 2023-12-26 07:43

多个人名的原文件放在一个文件夹里

沈默00 · 发表于 2023-12-26 07:45

附件加多几个人，到VBA版块去发，应该没问题的

茉莉Molly810312 · 发表于 2023-12-27 08:37

多放一些人在里面，请帮忙看看

wanghan519 · 发表于 2023-12-28 11:00

茉莉Molly810312 发表于 2023-12-27 08:37
多放一些人在里面，请帮忙看看

用powershell试了一下，需要允许执行脚本

$xl = New-Object -ComObject excel.application
$xl.DisplayAlerts = $false;
gci .\2023个税申报明细\*.xls | %{$n=$_.Name -replace '.*(【.*】).*','$1';
$wb1=$xl.Workbooks.Open($_.FullName);
$wb1.Sheets(1).Range('A20').EntireRow.Select();
$xl.Selection.Insert();
$wb1.Sheets(1).Range('A23:A37').EntireRow.Delete();
$wb2 = $xl.Workbooks.Open((gci .\2022个税申报明细\*.xls -Include "*$n*")[0].FullName);
$wb2.Sheets(1).Range('A8').EntireRow.Copy();
$wb1.Sheets(1).Range('A20').PasteSpecial(-4163);
$wb2.Close();
$wb1.Sheets(1).Range('C21:W21').Formula = '=SUM(C8:C20)';
$wb1.Save();
$wb1.Close();} | Out-Null
$xl.DisplayAlerts = $true;
$xl.Quit()

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 十万火急，求助各位大神