Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Select Case Target.Row
Case 1 To 100
Sheet2.Activate
Sheet2.Cells(Target.Row, 2).Select
End Select
End If
End Sub
'这段代码放到sheet1下就可以了，如图，测试无误
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024