检查遗漏

ddz79101

老师！我希望能在涂色区域检查列的数字连续性和有否“0"，结果无论有否遗漏，都在表的右侧集中显示，后句刚补充，案例不完善

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    With Sheet1
        r = .Cells(Rows.Count, 5).End(3).Row
        .[m6].Resize(r - 5).ClearContents
        n = 0
        For i = 6 To r - 1
            If .Cells(i, 5).Interior.ColorIndex = .Cells(i + 1, 5).Interior.ColorIndex Then
                If .Cells(i, 5) <> 0 And n = 0 Then
                    .Cells(i, "m") = "少0"
                ElseIf .Cells(i + 1, 5) <> .Cells(i, 5) + 1 Then
                    .Cells(i, "m") = "不连续"
                End If
                n = n + 1
            Else
                n = 0
            End If
        Next
    End With
    Beep
End Sub

ddz79101

quqiyuan 发表于 2024-10-13 08:47
参与一下，仅供参考。。。

谢谢老师！运行成功！只是在操作中发现有个问题未考虑到，若行数多，则我往下浏览费时，能否集中在右部分显示。谢谢！抱歉刚想起我的问题不全面。

ddz79101

quqiyuan 发表于 2024-10-13 08:47
代码如下。。。
Sub test()
    With Sheet1

老师！我重发了案例。方便时看下。谢谢

gwjkkkkk

ddz79101 发表于 2024-10-13 09:47
老师！我重发了案例。方便时看下。谢谢

请参考。。。

gwjkkkkk

请参考。。。

ddz79101

gwjkkkkk 发表于 2024-10-13 10:45
请参考。。。

谢谢老师！运行成功！

quqiyuan

ddz79101 发表于 2024-10-13 09:47
老师！我重发了案例。方便时看下。谢谢

稍作修改即可，仅供参考。。。

quqiyuan

更新了一下，如果第一行跟第二行不连续有少0，有缺陷，仅供参考。。