1个回答
展开全部
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
来自：求助得到的回答
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
