代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 6 And Target.Column = 10 Then
Cells(8, 8).Select
End If
End Sub
代码不能放在模块中，需要放在工作表中。
Private Sub WorkSheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$J$6" Then
Cells(8, "h").Select
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024