|
- Public arr
- Sub tt()
- Dim k As Long
- arr = Range("a1:j" & [a65536].End(3).Row)
- Application.ScreenUpdating = False
- Call getArr(2, 8)
- Call getArr(2, 9)
- Call getArr(2, 10)
- Application.ScreenUpdating = True
- End Sub
- Sub getArr(n As Integer, m As Integer)
- For k = 4 To UBound(arr) - 1
- x = arr(k, n)
- y = arr(k, m)
- yrr = Split(y, "-")
- For i = 0 To UBound(yrr)
- yy = yrr(i)
- xx = Mid(x, i + 1, 1)
- p = InStr(yy, xx)
- If p > 0 Then Cells(k, m).Characters(i * 5 + p, 1).Font.ColorIndex = 3
- Next
- Next
- End Sub
复制代码 |
评分
-
查看全部评分
|