大体思路如下：Dim c as integer
Dim d as integer
Range("A1").Select
ActiveCell.FormulaR1C1="min(range($B$3:$BA$1000))"
c = ActiveCell.Value
Range("A2").Select
ActiveCell.FormulaR1C1="max(range(B3:BA1000))"
d = ActiveCell.Value
这里="min(range($B$3:$BA$1000))"应该是有问题，，，，函数求最小值应该怎么写代码？另外我要实现求出这个范围内不是空值的所有单元格中的最小值，应该怎么写代码？
代码有问题，第三句改为：ActiveCell.FormulaR1C1 = "=min(R3C2:R1000C53)"即可求出最小值，最大值公式也要类似改
温馨提示：答案为网友推荐，仅供参考
第1个回答 2012-11-30
=MIN(E1:I2)
没有写成min(range($B$3:$BA$1000))的
没有写成min(range($B$3:$BA$1000))的
