Question

怎么在VBA比较3个单元格数值的大小并且返回3个数字,0最小,1中间,2最大这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 Su