【Excel小技巧】若干列数据中最大值

【条件】有3列数据，选择其中最大值填充到第4列

【问题】

当时第一想法就是max函数

Sub kk()

Dim i As Integer

For i = 1 To 5

Cells(i, 4) = Max（Cells(i, 1): Cells(i, 3)）

Next

End Sub

结果错误

【错误提示】

【修改】

是不是函数不能嵌套？修改一下

Sub kk()

Dim i,a,b,c As Integer

For i = 1 To 5

a = Cells(i, 1)
b = Cells(i, 2)
c = Cells(i, 3)

Cells(i, 4) = Max（a,b,c）

Next

End Sub

运行结果

结果发现 max函数未定义

最后修改，不用max函数了，冒泡法

Sub kk()

Dim i, a, b, c, d As Integer

For i = 1 To 5
a = Cells(i, 1)
b = Cells(i, 2)
c = Cells(i, 3)
d = a
If b > d Then d = b
If c > d Then d = c

Cells(i, 4) = d

Next

End Sub

 

【ok】