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

hua221

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

liulang0808

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

半百

hua221

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

excel玉米

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

复制代码