红尘雄鹰 发表于 2021-10-21 22:59:00

求问，有什么办法可以把多个表的表头批量去掉？

表内容如下：
表头 - 删除表头 - 删除 表头 - 删除表头 - 删除 数据123456数据123456
数据123456
                         *每个表的格式都是一样的
因为有上百个表，一个个打开删太费时间了
要怎么批量把表头都去掉？
不能两行的话一行一行的去也行，多执行一次也好过手动删
求大佬救救

叮翎 发表于 2021-11-21 17:17:38

已解决，给后面需要的人
Sub test1()
'删除每个工作表的第一行
Dim i As Integer
i = ActiveWorkbook.Sheets.Count
For i = 1 To i Step 1
Sheets(i).Rows("1:2").Delete'1:2,代表1-2行，以此类推
Next i
End Sub
用按键精灵就可实现自动化

张缘哥军训商贸 发表于 2022-1-2 21:53:04

已解决，给后面需要的人
Sub test1()
'删除每个工作表的第一行
Dim i As Integer
i = ActiveWorkbook.Sheets.Count
For i = 1 To i Step 1
Sheets(i).Rows("1:2").Delete'1:2,代表1-2行，以此类推
Next i
End Sub
用按键精灵就可实现自动化

孙钢 发表于 2022-1-10 09:20:07

选中第一个表+shift+最后一个表，成组工作表，然后删掉表头，在取消成组工作
页: [1]
查看完整版本: 求问，有什么办法可以把多个表的表头批量去掉？