看这个方法能否帮到你:Sub aa()Dim xRng As StringxRng = InputBox("请输入单元格,如C5")Range(xRng).ActivateEnd Sub
可以用vba,直接在启动事件里写代码!!!