求助！找不出代码问题！求指点！

hua221 · 发表于 2024-5-6 12:53

哪位高人帮忙修改一下，不胜感激！

学习_2018 · 发表于 2024-5-6 13:03

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

liulang0808 · 发表于 2024-5-6 13:29

建议楼主结合附件内容详细描述下具体需求，实现步骤，以及结果模拟
你的代码能执行没有达到预期，可能是逻辑问题，大家不了解你的实际需求，无法进一步处理的

半百 · 发表于 2024-5-6 13:49

hua221 · 发表于 2024-5-6 14:12

完美解决，非常感谢“半百”高手

excel玉米 · 发表于 2024-5-6 14:12

Sub 平肖遗漏次数() '运行结果不对！！！65536表示黄色
Dim A_Row%, B_Col%, i%
A_Row = Cells(Rows.Count, "A").End(3).Row
For B_Col = 10 To 21
For i = 2 To A_Row
If Cells(i, B_Col).Interior.Color = 14277081 And IsNumeric(Cells(i - 1, B_Col).Value) = False Then
Cells(i, B_Col).Value = 1
ElseIf Cells(i, B_Col).Interior.Color = 14277081 And IsNumeric(Cells(i - 1, B_Col).Value) = True Then
Cells(i, B_Col) = Cells(i - 1, B_Col) + 1
End If
Next i
Next B_Col
End Sub

复制代码

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

学习_2018 学习_2018 当前离线性别保密 UID 4075763 阅读权限 0 注册时间 2018-8-12 在线时间小时最后登录 1970-1-1 积分 27 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2024-5-6 13:03 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报