VBA格式化单元格用红色

laoau138

VBA格式化单元格用红色

dsmch

1. Sub Macro1()
   
2. Dim arr, i&, rng As Range
   
3. arr = Range("a1").CurrentRegion
   
4. s = UBound(arr, 2)
   
5. [a:g].Interior.ColorIndex = xlNone
   
6. For i = 2 To UBound(arr)
   
7.     If arr(i, 7) >= 330 Then
   
8.         If rng Is Nothing Then
   
9.             Set rng = Cells(i, 1).Resize(1, s)
   
10.         Else
    
11.             Set rng = Union(rng, Cells(i, 1).Resize(1, s))
    
12.         End If
    
13.     End If
    
14. Next
    
15. If Not rng Is Nothing Then rng.Interior.ColorIndex = 3
    
16. End Sub

复制代码