宏删除指定工作表指定条件行

jansen125 · 发表于 2016-6-23 11:11

求助大神，想用宏删除工作表“模板”中的B列为“删除”的单元格所在行。
触发宏的按钮在另一个sheet。

liulang0808 · 发表于 2016-6-23 11:33

Sub 按钮1_Click()
Set sh = Sheets(2)
Application.ScreenUpdating = False
For j = sh.Cells(Rows.Count, 2).End(3).Row To 2 Step -1
If sh.Cells(j, 2) = "删除" Then sh.Rows(j).Delete
Next j
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2016-6-23 11:33

供参考。。。。。。。。。。。。

蓝桥玄霜 · 发表于 2016-6-23 11:37

请见代码。

jansen125 · 发表于 2016-6-23 11:42

liulang0808 发表于 2016-6-23 11:33
供参考。。。。。。。。。。。。

搞定，万分感谢！

zhang445465853 · 发表于 2018-6-11 09:32

liulang0808 发表于 2016-6-23 11:33
Sub 按钮1_Click()
Set sh = Sheets(2)
Application.ScreenUpdating = False

这代码不错，谢谢！

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

[求助] 宏 删除指定工作表 指定条件行

[求助] 宏删除指定工作表指定条件行