删行

xing_chen · 发表于 2023-7-12 10:29

3190496160 发表于 2023-7-12 08:53

老师！此句显黄： r = sh.Cells(Rows.Count, l).End(xlUp).Row。应用程序定义或对象定义错误

xing_chen · 发表于 2023-7-12 10:36

3190496160 发表于 2023-7-12 08:53

老师！现在对了！刚才我是根据图片输入的。现在复制了你上传的文字，可以了。

于箱长 · 发表于 2023-7-12 10:42

本帖最后由于箱长于 2023-7-12 10:47 编辑

xing_chen 发表于 2023-7-12 09:26
老师！我再表述了我的意思，你看下能明白我的意思吗

只干一部分

grf1973 · 发表于 2023-7-12 11:10

为需要的删除的行标注了红色。再利用人家的代码删吧。

沈默00 · 发表于 2023-7-12 11:10

终于搞明白了，

xing_chen · 发表于 2023-7-12 11:17

grf1973 发表于 2023-7-12 11:10
为需要的删除的行标注了红色。再利用人家的代码删吧。

谢谢老师！运行如愿！

xing_chen · 发表于 2023-7-12 11:18

于箱长发表于 2023-7-12 10:42
只干一部分

谢谢老师！运行如愿！

xing_chen · 发表于 2023-7-12 11:19

3190496160 发表于 2023-7-12 08:53
Sub 删除行()
Application.ScreenUpdating = False
Dim rn As Range

谢谢老师！我收藏了

xing_chen · 发表于 2023-7-12 11:22

LIUZHU 发表于 2023-7-12 09:11
WPS打开运行测试

谢谢老师！
花只剩一朵海底花了。

xing_chen · 发表于 2023-7-12 13:59

grf1973 发表于 2023-7-12 11:10
为需要的删除的行标注了红色。再利用人家的代码删吧。

老师！您还在网上吗?可以帮忙看看吗，我根据你的代码运行后发现问题，我已将表格最简化了，但我看不懂本地窗口中显示的问题和对应解决办法.可以帮忙解决下吗?xiex

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

[求助] 删行