作者windknife18 (windknife18)
标题Re: [算表] 请问VBA如何逐列执行？
时间Wed Dec 21 17:23:15 2022
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来处理，请问该如何写呢？
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 140.131.84.79 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1671614597.A.C4D.html
1F：→ zyxx: 人也太好.. 12/21 18:29
2F：→ CaoCao: 非常谢谢风刀大大！ 12/26 13:53