在VBA窗口下,选中你要实现功能的sheet,copy以下内容进去:PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfSelection>10000ThenSelection.Offset(1,0).SelectEndSub这里是5位数,自己改10000