VBA怎么比较3个单元格数值的大小.如果，最大返回2，最小返回0，中间返回1，返回值在别的单元格中输出

Question

要比较的输入单元格B9,C9,D9。对应输出的单元格E9,F9,G9例如B9为最大数就对应E9输出2 以此类推数值可以是小数跟整数比较selsect 语句 代码怎么写

Answer 1

Sub test()
Dim a1, a2 As Single
Dim b As Integer

a1 = Application.WorksheetFunction.Max(Range("B9:D9")) 'a1是三个数里面最大值
a2 = Application.WorksheetFunction.Min(Range("B9:D9")) 'a2是最小值
b = 0
For i = 2 To 4
If Cells(9, i) = a1 Then ' 从B到D三个格子里找出是最大值的那个
Cells(9, i + 3) = 2 ' 把对应的格子（EFG）填上“2”
b = b + i '记录哪一个格子（BCD）被取到了
End If

If Cells(9, i) = a2 Then ' 从B到D三个格子里找出是最小值的那个
Cells(9, i + 3) = 0 ' 把对应的格子（EFG）填上“0”
b = b + i '记录哪一个格子（BCD）被取到了
End If
Next i
'关于b 这里解释：BCD 三个单元格，即第2,3,4列，三列的列数总和为2+3+4=9，因此在上面的for循环里已经让b加上其中两个列数，再用9-b就可以求出是哪一列没有被选中，对应的9-b+3就可以得到EFG三个单元格哪一个还没填，给它填上“1”
Cells(9, 12 - b) = 1

End Sub

参考资料：’