对啊，用内部函数来获得，最快了。比如用下边的代码。ActiveCell.FormulaR1C1 = "=MAX(R[-26]C[-1]:R[-2]C[-1])"是获得A1到A25之间的最大值。找到之后用Cells对象的Find或FindNext方法来找所在单元格就可以了。比如用如下代码    Cells.Find(What:="1313123", After:=ActiveCell, LookIn:=xlFormulas, _        LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _        MatchCase:=False).Activate    Debug.Print ActiveCell.Row    Debug.Print ActiveCell.Column