对啊,用内部函数来获得,最快了。
比如用下边的代码。
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