想要批量删除一个工作簿中多工作表指定内容整行

xrdzl · 发表于 2023-4-11 21:24

找到一个代码，但是只能删除一张工作表内容，不知道怎么改？

Sub 测试()
On Error Resume Next
sheet.activate
arr = Array("填表说明", "填表格式")
For i = LBound(arr) To UBound(arr)
Cells.Find(arr(i)).Select
Selection.EntireRow.Delete
Next
End Sub

taller · 发表于 2023-4-12 01:03

xrdzl · 发表于 2023-4-13 21:10

taller 发表于 2023-4-12 01:03

可以，非常感谢！

xing_chen · 发表于 2023-4-14 18:08

taller 发表于 2023-4-12 01:03

抱歉！楼主插句问题讨教老师。taller老师！若要删除基本信息(含本行）上的所有行和填表说明（含本行）下的所有行，有怎么操作喃？谢谢老师

mmwwdd · 发表于 2023-4-15 05:06

xing_chen 发表于 2023-4-14 18:08
抱歉！楼主插句问题讨教老师。taller老师！若要删除基本信息(含本行）上的所有行和填表说明（含本行）下 ...

rows(所在行 & “：" ＆ rows.count).clear

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

[求助] 想要批量删除一个工作簿中多工作表指定内容整行