怎么在VBA比较3个单元格数值的大小并且返回3个数字,0最小,1中间,2最大这3个数在别的单元格中输出.这3个数可以是小数跟正数代码怎么写啊

Question

怎么在VBA比较3个单元格数值的大小并且返回3个数字,0最小,1中间,2最大这3个数在别的单元格中输出.
这3个数可以是小数跟正数 代码怎么写啊

Answer 1

Sub bj()
a = Range("B2").Value
b = Range("E3").Value
c = Range("F3").Value
Range("a1").Value = Application.WorksheetFunction.Max(a,b,c)
Range("a3").Value = Application.WorksheetFunction.Min(a,b,c)
Range("a2").Value = a + b + c - Range("a1").Value - Range("a3").Value
End Sub