マクロの簡素化

質問

下記マクロです。
Range("AE6:AE1005").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
If Range("AD6").Value > 5 Then
Range("AE6") = "*"
Range("AE6").Select
With Selection.Interior
.ColorIndex = 3
End With
Else
End If
If Range("AD7").Value > 5 Then
Range("AE7") = "*"
Range("AE7").Select
With Selection.Interior
.ColorIndex = 3
End With
Else
End If
If Range("AD8").Value > 5 Then
Range("AE8") = "*"
Range("AE8").Select
With Selection.Interior
.ColorIndex = 3
End With
Else
End If

中略（セルを一個づつ指定しています）

If Range("AD1004").Value > 5 Then
Range("AE1004") = "*"
Range("AE1004").Select
With Selection.Interior
.ColorIndex = 3
End With
End If
If Range("AD1005").Value > 5 Then
Range("AE1005") = "*"
Range("AE1005").Select
With Selection.Interior
.ColorIndex = 3
End With
Else
End If
Range("AE3").Select
有るセルを参照しその値が５以上だったら別のセルに＊マークとセルに色を付けるマクロですが、一個づつセル指定をしていますが、何とか短く出来ないでしょうか？　お分かりになる方宜しくお願い致します。

回答No.1

hige_082 · ベストアンサー

一例です

With Range("AE6:AE1005")
.ClearContents
.Interior.ColorIndex = xlNone
End With
For i = 6 To 1005
If Cells(i, 30).Value > 5 Then
Cells(i, 31).Value = "*"
Cells(i, 31).Interior.ColorIndex = 3
End If
Range("AE3").Select

こんな感じで

お礼

hige_082さん
素早い回答大変有難う御座いました。
簡単に簡素化出来るなんて素晴らしいですね。
私にはとてもまね出来ないです、本当に有難う御座いました。