VBAで、1列毎に上位3番目のセルに別々の色を入れるコードを書きたいです。

RANK関数とLARGE関数試しましたが、
途中でコードをどう展開していいのかわからなくなりました。
どなたか教えてください！！

Sub 各列上位3セル色分け()

Dim ws As Worksheet
Set ws = Worksheets("sheet1")
Dim i As Integer, j As Integer

MaxRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
MaxCol = ws.Cells(2, Columns.Count).End(xlToLeft).Column

For j = 2 To MaxCol
For i = 3 To MaxRow
1番目に大きい数値の入ったセル番地取得
赤色を入れる
2番目に大きい数値の入ったセル番地取得
黄色を入れる
3番目に大きい数値の入ったセル番地取得
青色を入れる
Next i
Next j