求助用Excell宏批量删除表格内容

lesterbulan · 发表于 2019-8-19 10:53

各位大神，本人小白一个。能帮忙写一个宏代码删除EXCELL中的第三行到第十行和第14、16行红色的字。表格有几千份，格式都一样的。

Jaofuan · 发表于 2019-8-19 11:22

查看附件，看是否满足要求

约定的童话 · 发表于 2019-8-19 11:27

搞定了没有？

lesterbulan · 发表于 2019-8-19 11:43

还没，我自己录制了一个宏，但是需要一个个表格打开执行

lesterbulan · 发表于 2019-8-19 11:46

Jaofuan 发表于 2019-8-19 11:22
查看附件，看是否满足要求

你这个是用宏录制实现的吧，但是几千份表格一个个打开执行头壳会炸裂

lesterbulan · 发表于 2019-8-19 11:48

约定的童话发表于 2019-8-19 11:27
搞定了没有？

还没搞定，大神能帮忙编写个宏吗，我现在用宏录制，一个个表格打开执行。几千份表格太难了

Jaofuan · 发表于 2019-8-19 11:50

lesterbulan 发表于 2019-8-19 11:46
你这个是用宏录制实现的吧，但是几千份表格一个个打开执行头壳会炸裂

你的附件就只有一个工作表，你要说清楚说几千个工作簿还是工作表，如果工作簿要把存放文件地址写清楚

Jaofuan · 发表于 2019-8-19 11:54

重新上传附件，或者说清楚是几千工作簿还是工作表？

约定的童话 · 发表于 2019-8-19 12:04

lesterbulan 发表于 2019-8-19 11:48
还没搞定，大神能帮忙编写个宏吗，我现在用宏录制，一个个表格打开执行。几千份表格太难了

下午帮你看下哈，现在午休

lesterbulan · 发表于 2019-8-19 12:10

约定的童话发表于 2019-8-19 12:04
下午帮你看下哈，现在午休

好的，谢谢啦。
这是我录制的宏代码
同一文件夹excel批量运行宏吗
Sub 宏1()
'
' 宏1 宏
'

'
Rows("3:10").Select
Selection.Delete Shift:=xlUp
Rows("6:6").Select
Selection.Delete Shift:=xlUp
Rows("7:7").Select
Selection.Delete Shift:=xlUp
End Sub

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