快速定位问题VBA怎么编写

hitachi538

我需要点击一个单元格，自动定位到所在行。
高手呢？等待。。。。

pureshadow

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
    Cells(Target.Row, 71).Select
End If
End Sub

sagemeyou

看看。