![](http://tiebapic.baidu.com/forum/w%3D580/sign=5101f0f8b136afc30e0c3f6d8319eb85/f3cde6cd7b899e515dfd872c04a7d933c8950d4a.jpg?tbpicau=2024-09-17-05_481bd674fdc70bae49a25ef71ddc9583)
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Columns.Count > 1 Then Exit Sub
Dim r, max, i, p
r = Cells(Rows.Count, Target.Column).End(xlUp).Row
If r = Rows.Count Then Exit Sub
For i = 1 To r
If IsNumeric(Cells(i, Target.Column).Value) Then
If max < Cells(i, Target.Column).Value Then
max = Cells(i, Target.Column).Value: p = i
End If
End If
Next
Application.EnableEvents = False
If p > 0 Then Cells(p, Target.Column).Select
Application.EnableEvents = True
End Sub