求助删除行的代码

0wchz · 发表于 2025-4-9 10:12

保留第一行，第二行到最后一行1-9列s个数不等于4,5,6 的行删除，请写vba谢谢

For i = .[a65536].End(3).Row To 2 Step -1
sc = 0
For j = 1 To 9
If InStr(.Cells(i, j), "s") > 0 Then sc = sc + 1
Next j
If sc <> 4 And sc <> 5 And sc <> 6 Then .Rows(i).Delete
Next i

这个代码为何删掉了第一行呢？所以请改写谢谢。

0wchz · 发表于 2025-4-9 11:33

这个代码为何删掉了第一行呢？所以请改写谢谢

杨建营 · 发表于 2025-4-9 11:59

设置限定条件让行数大于2时才删除

3190496160 · 发表于 2025-4-9 12:05

提示: 作者被禁止或删除内容自动屏蔽

ykcbf1100 · 发表于 2025-4-9 12:24

本帖最后由 ykcbf1100 于 2025-4-9 12:29 编辑

供参考。。。

r = .Cells(Rows.Count, 1).End(3).Row
For i = r To 2 Step -1
sc = 0
For j = 1 To 9
If LCase(.Cells(i, j)) Like "*s*" Then sc = sc + 1
Next j
If sc < 4 Or sc > 6 Then .Rows(i).Delete
Next i

复制代码

0wchz · 发表于 2025-4-9 12:58

代码和我的一样意思吧，

0wchz · 发表于 2025-4-9 13:16

试过，还是把第一行删掉了呀，怎么回事

大寒123 · 发表于 2025-4-9 16:01

你检查一下.End(3).Row返回的是多少

温馨云 · 发表于 2025-4-9 16:12

本帖最后由温馨云于 2025-4-9 16:14 编辑

0wchz 发表于 2025-4-9 13:16
试过，还是把第一行删掉了呀，怎么回事

回复错了

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

[求助] 求助删除行的代码

评分

浏览过的版块

3190496160 3190496160 当前离线性别保密 UID 4343875 阅读权限 0 注册时间 2020-1-10 在线时间小时最后登录 1970-1-1 积分 19382 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2025-4-9 12:05 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报