vba批量删除同一个文件夹内的所有工作簿中所有工作表的最后一个非空行的数据

gaoleihpu · 发表于 2024-8-19 23:10

文件夹内有很多个excel工作簿，每个工作簿里有一些数量不等的工作表，工作表的最后一行是汇总，想把所有工作表里的这个汇总行去掉。求助如何用vba实现。

沈默00 · 发表于 2024-8-20 07:17

沈默00 · 发表于 2024-8-20 07:18

试试，，，，，，，，

gaoleihpu · 发表于 2024-8-20 08:54

好的，我试试。谢谢先。

gaoleihpu · 发表于 2024-8-20 09:33

沈默00 发表于 2024-8-20 07:18
试试，，，，，，，，

没去掉。。

沈默00 · 发表于 2024-8-20 11:02

忘记指定宏了，，再试试，，，

gaoleihpu · 发表于 2024-8-20 17:18

沈默00 发表于 2024-8-20 11:02
忘记指定宏了，，再试试，，，

收到，谢谢。我马上试一下子。

gaoleihpu · 发表于 2024-8-20 17:42

沈默00 发表于 2024-8-20 11:02
忘记指定宏了，，再试试，，，

可以啦，太棒了，谢谢你！

天涯887 · 发表于 2024-8-30 10:57

沈默00 发表于 2024-8-20 11:02
忘记指定宏了，，再试试，，，

如果文件夹内也有一部分XLSX为后缀的工作薄
这一句要怎么改
f = Dir(p & "*.xls")

沈默00 · 发表于 2024-8-30 13:03

天涯887 发表于 2024-8-30 10:57
如果文件夹内也有一部分XLSX为后缀的工作薄
这一句要怎么改
f = Dir(p & "*.xls")

改成统一的，，，要不.XLS, 要不.XLSX,,,

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

[求助] vba批量删除同一个文件夹内的所有工作簿中所有工作表的最后一个非空行的数据