如何批量删除多工作簿或多工作表下方的空行

小灰灰520 · 发表于 2023-2-27 18:34

本帖最后由小灰灰520 于 2023-2-27 23:18 编辑

有一考勤模板工作表，各部门根据人员和出勤情况分别填写后提交，以科室名称命名的工作簿保存在同一文件夹下，格式一致但由于各部门使用行数不一致，如何删除表格内无内容的空行，请大神帮忙解决！

麻烦大神分别给出同一文件夹下多工作簿删除空行和同一工作簿下多工作表删除空行的代码，万分感谢！

考勤.zip (496.1 KB, 下载次数: 7)

gwjkkkkk · 发表于 2023-2-27 19:11

请参考附件。。。

小灰灰520 · 发表于 2023-2-27 22:13

gwjkkkkk 发表于 2023-2-27 19:11
请参考附件。。。

大神，请问这是通用代码吗？为什么在这4个工作簿试成功了，但是换了其它的几个工作簿就只保留了1-3行，4行往下就全部删除了呢？

shiruiqiang · 发表于 2023-2-27 22:18

gwjkkkkk老师定位是[a1].currentregion,你中间有空行，没连续

gwjkkkkk · 发表于 2023-2-27 22:21

小灰灰520 发表于 2023-2-27 22:13
大神，请问这是通用代码吗？为什么在这4个工作簿试成功了，但是换了其它的几个工作簿就只保留了1-3行，4 ...

我是针对你现有表格情况写的，具体情况还是需要具体分析的，通用代码不会了。。。

小灰灰520 · 发表于 2023-2-27 22:25

gwjkkkkk 发表于 2023-2-27 22:21
我是针对你现有表格情况写的，具体情况还是需要具体分析的，通用代码不会了。。。

我发现问题所在了，我是先公式转值再删除空行，就全删掉了。又试了一下不公式转值，先删除空行，好像就没问题了。请问这是什么原理啊？

小灰灰520 · 发表于 2023-2-27 22:26

shiruiqiang 发表于 2023-2-27 22:18
gwjkkkkk老师定位是[a1].currentregion,你中间有空行，没连续

好像没有空行，是前面先公式转值了，所以就都删除了

shiruiqiang · 发表于 2023-2-27 22:43

小灰灰520 发表于 2023-2-27 22:26
好像没有空行，是前面先公式转值了，所以就都删除了

既然搞vba了，没必要再搞公式了

小灰灰520 · 发表于 2023-2-27 22:50

shiruiqiang 发表于 2023-2-27 22:43
既然搞vba了，没必要再搞公式了

很惭愧，才刚刚接触VBA，我没有那个能力啊，不过我会继续学习的

shiruiqiang · 发表于 2023-2-27 22:53

小灰灰520 发表于 2023-2-27 22:50
很惭愧，才刚刚接触VBA，我没有那个能力啊，不过我会继续学习的

慢慢来，医教、医政或医务科的活很多，包括药房。数组和字典必学一下

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

[已解决] 如何批量删除多工作簿或多工作表下方的空行

评分