vba - 根据值查找连续单元格

Question

我有一个每月更新的数据库。我需要分析所述数据以确定低于 64 的所有值。 ，那么我需要查找此事件的两个连续实例。找到后，我希望返回一个值以表明该供应商存在问题。

第二个难题是我还需要分析 64 以上值的三个连续实例的数据。如果供应商已被标记为问题。

我不确定 VBA 是否合适或公式方法是否有效。我能够编写大多数 VBA 代码并使用基本公式。这里的例子:

Answer 1

此代码假设您的数据从单元格 B4 开始(如您的图片所示)，如果连续两次发现低于 64 的数据，则会输出问题。但是，如果在问题之后连续 3 次发现 64 以上，则返回“N”表示没有问题:

Sub VendorProblems()
    Dim cl As Long, LastRow As Long, i As Long, LastCL As Long, Problem As String
        LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
        LastCL = ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Column - 1
    For i = 4 To LastRow
        Problem = ""
        For cl = 2 To LastCL
            Set r1 = Cells(i, cl)
            Set r2 = r1.Offset(0, 1)
            Set r3 = r1.Offset(0, 2)
            If r1.Value < 64 And r2.Value < 64 Then
            Problem = "Y"
            Else
            End If
            If r1.Value >= 64 And r2.Value >= 64 And r3.Value >= 64 Then
            Problem = "N"
            Else
            End If
        Next cl
        If Problem = "Y" Then
        Cells(i, LastCL + 1).Value = "Y"
        Else
        Cells(i, LastCL + 1).Value = "N"
        End If
    Next i
End Sub