|
こんばんは、ためしにこんなもの作ってみました。
行又は列が全て空欄の時のエラー回避処理はしていません。
中途半端ですが参考になれば幸いです。
Sub test()
Dim i As Long, j As Long, k As Long
For i = 1 To 11
k = i + 1
Cells(13, k).Value = Application.Max(Range(Cells(2, k), Cells(12, k)))
j = Application.Match(Cells(13, k).Value, Range(Cells(2, k), Cells(12, k)))
Cells(13, k).Font.ColorIndex = Cells(1 + j, k).Font.ColorIndex
Cells(k, 13).Value = Application.Max(Range(Cells(k, 2), Cells(k, 12)))
j = Application.Match(Cells(k, 13).Value, Range(Cells(k, 2), Cells(k, 12)))
Cells(k, 13).Font.ColorIndex = Cells(k, 1 + j).Font.ColorIndex
Next i
End Sub
|
|