关于快速删除许多表的表头的求助

jek_111 · 发表于 2016-11-18 16:38

一个工作表中有许多个表，求助，如何快速删除表头前4行，见附件黄色部分是删除的。

zhouxiao · 发表于 2016-11-18 16:41

这么规范的格式,这也要用代码?
最基础的操作就可以啊,大哥
选中全部工作表,删除,完成

jek_111 · 发表于 2016-11-18 16:44

zhouxiao 发表于 2016-11-18 16:41
这么规范的格式,这也要用代码?
最基础的操作就可以啊,大哥
选中全部工作表,删除,完成

谢谢点破，短路了

lsc900707 · 发表于 2016-11-18 19:32

jek_111 发表于 2016-11-18 16:44
谢谢点破，短路了

按住shift ，选定全部表，选定标题4行，删除！

lsc900707 · 发表于 2016-11-18 19:33

本帖最后由 lsc900707 于 2016-11-18 19:34 编辑

jek_111 发表于 2016-11-18 16:44
谢谢点破，短路了

代码放this workbook 代码区：
Sub shsh()
For Each sh In Worksheets
sh.Rows("1:4").Delete
Next
End Sub

lrh788 · 发表于 2018-6-27 07:15

学习收藏了！！

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

[已解决] 关于快速删除许多表的表头的求助