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来处理，请问该如何写呢？