用VBA代码完成,单元格单击事件,非常方便 如果您A列都是数字,代码如下 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim x&, r&, t& Dim arr If Target.Column = 1 And Target.Count = 1 Then t = Target.Value With Sheets("sheet2") r = .Range("A65536").End(xlUp).Row arr = .Range("A1:A" & r).Value For x = 1 To UBound(arr) If arr(x, 1) = t Then Sheets("sheet2").Select .Cells(x, 1).Select End If Next x End With End If End Sub 以上代码写在sheet1表代码下。