EXCEL如何使用VBA获取Sheet1中的最小值，并得到坐标？（最好使用系统函数）

Question

EXCEL如何使用VBA获取Sheet1中的最小值，并得到坐标？（最好使用系统函数）
如果自己写排序函数，因为数据量巨大，效率太低。

Answer 1

Sub aa()
a = Application.WorksheetFunction.Min(Sheet1.Cells)
b = Sheet1.Cells.Find(a).Address
 MsgBox a '最小值
 MsgBox b '最小值的坐标
End Sub

Answer 2

MsgBox Cells.Find(What:=WorksheetFunction.Min(Range("A:Z")), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Address

这里查找范围是A:Z，也可以用 Sheets(1).UsedRange 代替，效率会更高追问

非常感谢！！我测试了一下，您的代码效率稍稍慢了一点，已经用sheets(1).UsedRange 代替了。不知道是否因为这个语句参数传递太多的缘故。