Option Explicit
Sub paintColor()
Dim rCount As Integer, cCount As Integer
Dim i As Integer, j As Integer, max As Integer
rCount = ActiveSheet.UsedRange.Rows.Count
cCount = ActiveSheet.Range("IV1").End(xlToLeft).Column
Range("A1", Cells(rCount, cCount)).Interior.Color = xlNone
For i = 2 To rCount
max = 0
For j = 3 To cCount Step 2
If Cells(i, j) > max Then
max = Cells(i, j)
End If
Next j
For j = 3 To cCount Step 2
If Cells(i, j) = max Then
Cells(i, j).Interior.Color = vbYellow
End If
Next j
Next i
End Sub
※ 引述《CaoCao (學習當暖男)》之銘言：
: 軟體:Excel
: 版本:Office2016
: 請問各位大大，有一份銷售表需要找出每日前三名，檔案類似如下：
: A B C D E F G .....
: 1 日期 參考 甲 參考 乙 參考 丙 .....
: 2 1/1 參考 10 參考 22 參考 15 .....
: 3 1/2 參考 24 參考 35 參考 17 .....
: 4 1/3 參考 16 參考 9 參考 14 .....
: 5 1/4 參考 18 參考 21 參考 10 .....
: C2、E2、G2...最高的儲存格變成黃色，
: C3、E3、G3...最高的儲存格變成黃色，
: ......
: 因為資料很多，所以想用VBA來處理，請問該如何寫呢？