条件格式规则设置遇相邻整数字体颜色变红

Ray1979

现EXCEL表格中A1有7个两位数的整数02 03 16 20 33 46 47，7个数字用空格分隔，如何做到当这7个数字当中有若干个数字为相邻数字时，把这若干个数字的颜色变为红色？例如对于02 03 16 20 33 46 47来说，02 03 46 47应该变为红色，条件格式规则设置知道怎么弄，规则应该应用什么公式？

满坛皆为吾师

1. Sub Test()
   
2.     Dim rng As Range
   
3.     Dim cell As Range
   
4.     Dim values() As String
   
5.     Dim i As Long
   
6.    
   
7.     ' 设置使用的范围（修改为你的实际范围）
   
8.     Set rng = Range("A1:A100")
   
9.    
   
10.     For Each cell In rng
    
11.         ' 将字符串按空格分割成数组
    
12.         values = Split(cell.Value, " ")
    
13.         
    
14.         ' 遍历数组，检查连续数
    
15.         For i = LBound(values) To UBound(values) - 1
    
16.             If CDbl(values(i)) + 1 = CDbl(values(i + 1)) Then
    
17.                 ' 将连续数部分标红
    
18.                 cell.Characters(InStr(cell.Value, values(i)), Len(values(i)) + 3).Font.Color = RGB(255, 0, 0)
    
19.             End If
    
20.         Next i
    
21.     Next cell
    
22. End Sub

复制代码

高个子

这个条件格式无法做到，必须VBA解决，不会就去VBA版块问

笨鸟飞不高

Ray1979

满坛皆为吾师 发表于 2023-6-29 09:26

感谢大佬，现在就去学VBA.

Ray1979

笨鸟飞不高 发表于 2023-6-29 12:37

感谢大佬，现在就去学VBA.