Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 Then
   ActiveCell.Offset(-1, 0).Select
Else
   MsgBox "已是最上一行"
End If
End Sub
以上VBA代码在Excel表格中为什么只能运行101行？求大神指点。

[此贴子已经被作者于2019-3-5 20:52编辑过]

只能运行101行是什么意思？

以上代码是只要上一个单元格不是第一行，就像上移动一个单元格，比如如果点击A101它可以运行至A1，但点击A102它只运行至A2。

[此贴子已经被作者于2019-3-12 15:41编辑过]

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Static s

If Target.Row > 1 Then
   ActiveCell.Offset(-1, 0).Select
Else
   MsgBox "已是最上一行"
End If
s = s + 1
Debug.Print s
End Sub


验证属实。
个人认为，每次的事件都自动陷入循环造成堆栈积累，那么就会有堆栈积累的限制，所以才有101次的限定就会自动强行退出循环。