我是做采购的，一份清单中有很多项物料编号，我又记不住以前买的价格，每个输入ERP系统里面查询，效率太慢。在Excle中编写个宏，点下按钮，买过的最低价和最高价和供应商就自动显示出来。

计算A1：A5的最大值和最小值，分别放到A7，A8
   Range("A7").Select
    ActiveCell.FormulaLocal = "=MAX(a1:A5)"
    a = MsgBox(Range("A7"), , "最大值")
    Range("A8").Select
    ActiveCell.FormulaLocal = "=Min(a1:A5)"
    a = MsgBox(Range("A8"), , "最大值")
   Application.Goto Reference:="Macro1"

回复 楼主 childHJS：
我认为这个问题不是一个特别简单的问题，由于你的描述不是特别清楚，只能大概说一下：
一般来讲，不论是采购还是销售，商品不是单纯的，可能有几十种，每种商品的销售、采购价格可能有最高价、最低价，因此统计的是各种商品的最高价、最低价，而不是全部商品的最高价、最低价。
这个如果有你的Excel，用VB做还是可以实现的，关键是必须有全部商品的名称，而且在你的采购订单或销售订单中必须也有商品名称。
VB是支持Excel的。不论是Excel 2003或以下版本、Excel 2007或以上版本，均没有问题，如果有你的Excel可以帮你。

有微信吗？微信上请教你。