VBA SAMPLE - 테이블에서 범위 아래 숫자 찾기

 

Sub mm()

Dim i As Long

Dim lngR As Long

Dim lngC As Long

lngR = Range("b10000").End(xlUp).Row

lngC = Range("iv2").End(xlToLeft).Column

For j = 2 To lngC

For i = 2 To lngR

If Cells(i, j) <= 70 Then

Cells(i, j).Font.ColorIndex = 3

End If

Next i

Next j

End Sub