마지막행열

Sub score()

Dim i As Long

For i = 2 To 23

If Cells(i, 2) <= 70 Then

Cells(i, 2).Font.ColorIndex = 3 '빨간색(코딩컬러표)

End If

Next

End Sub

Sub score()

Dim i As Long

Dim lngR As Long

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

'B10000셀을 끝이라고 생각하고 올라오면서(xlup)

'첫번째 데이터가 있는 행(row)을 찾아 lngR에 넣어라

For i = 2 To lngR

If Cells(i, 2) <= 70 Then

Cells(i, 2).Font.ColorIndex = 3 '빨간색(코딩컬러표)

End If

Next

End Sub

Sub score()

Dim i As Long

Dim lngR As Long

Dim lngC As Long

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

'B10000셀을 끝이라고 생각하고 올라오면서(xlup)

' 첫번째 데이터가 있는 행(row)을 찾아 lngR에 넣어라

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

For i = 2 To lngR

For j = 2 To lngC

If Cells(i, j) <= 70 Then

Cells(i, j).Font.ColorIndex = 3 '빨간색(코딩컬러표)

End If

Next

Next

End Sub