根据数据样本进行条件判断并对比得出结果

wodewan

LVMJ2023 发表于 2023-2-20 19:06
当中途出现abcd以外的类型时，需要断掉对比，要继续判断出现下一个abcd类型的数据为基础再接着对比

8楼附件你试了吗？不就是按这个规则来的吗？

准提部林

只做上下格判定, 上一格必須是abcd

Sub TEST_A1()
Dim Arr, X(9), x1%, Y, y1%, v%, C%, T$
[a:a].Font.Color = vbBlack
[c2:c9000].ClearContents
Arr = Range([a1], [a65536].End(3)(2))
Y = X: x1 = 99
For i = 2 To UBound(Arr) - 1
    C = 0: Y = X: y1 = x1: Erase X
    For j = 1 To 4
        v = Mid(Arr(i, 1), j, 1)
        X(v) = X(v) + 1:  C = C + Y(v)
    Next j
    x1 = Val(Replace(Join(X, ""), 1, ""))
    If x1 = 22 Then x1 = 5
    If x1 = 0 Then x1 = Abs(C > 0)
    If x1 < 2 Then Cells(i, 1).Font.Color = vbRed
    If y1 < 2 Then Cells(i, 3) = Mid("ABCDFE", x1 + 1, 1)
Next i
End Sub