Sub s()
ca = "a"
cl = Array(3, 6, 43, 14, 33, 47, 7)
n = Cells(Rows.Count, 11).End(3).Row
For i = 11 To 313
c = 0
For j = n To 1 Step -1
If Cells(j, i) = "" Then Exit For
k = Cells(j, i) Mod 10 - Cells(j, i) \ 10
t = " "
If k = 0 Then
t = "a"
ElseIf k = 5 Or k = -5 Then
t = "b"
End If
If InStr(ca, t) > 0 Then c = c + 1 Else Exit For
Next
If c > 1 Then
Cells(n - c + 1, i).Resize(c).Interior.ColorIndex = cl(IIf(c > 8, 8, c) - 2)
End If
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024