Sub 会員カード整理()
Dim i
For i = 10 To 3 Step -1
If Cells(i, 4) = "退会" Then
Rows(i & ":" & i).Select
Selection.Delete Shift:=xlUp
ElseIf Cells(i, 5) < 0 Then
Cells(i, 5).Select
Application.CutCopyMode = False
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
End If
Next i
End Sub