Excel 2013 64位VBA如何打开关注最后一行的工作表

Question

感谢您查看此问题。

我有一个工作簿，上面有写有用户名的工作表。打开工作簿时的第一个工作表是一个"菜单"工作表，它有4个命令按钮(每个用户有一个按钮(，当他们单击按钮时，它会将他们带到工作表。当他们点击他们的按钮时，我希望发生的是

• 转到他们的工作表
• 将光标设置在最后一个空行(滚动到光标所在的位置(

我在互联网上搜索过，没有找到任何可以修改的代码来适应我想要发生的事情。

"菜单"工作表的当前代码是：

Private Sub CMB_Andrew_Click()
    Sheets("Andrew").Activate
    last_row = ThisWorkbook.Worksheets("Andrew").Cells(Rows.Count,2).End(xlUp).Row
End Sub
Private Sub CMB_Chris_Click()
Sheets("Chris").Activate
last_row = ThisWorkbook.Worksheets("Chris").Cells(Rows.Count, 2).End(xlUp).Row
End Sub
Private Sub CMB_Joy_Click()
Sheets("Joy").Activate
last_row = ThisWorkbook.Worksheets("Joy").Cells(Rows.Count, 2).End(xlUp).Row
End Sub
Private Sub CMB_Michael_Click()
Sheets("Michael").Activate
last_row = ThisWorkbook.Worksheets("Michael").Cells(Rows.Count, 2).End(xlUp).Row
End Sub

我只是想节省用户必须向下滚动(我需要它对最终用户LOL来说尽可能简单(

如有任何帮助或建议，我将不胜感激。

干杯，ShyB蝴蝶

Answer 1

有趣的阅读：

如何避免在Excel VBA宏中使用Select

同时确保

1. 激活图纸之前，图纸是可见的
2. 可以先选择单元格，然后再选择它

这是你想要的吗？

Private Sub CMB_Andrew_Click()
    Sheets("Andrew").Activate
    last_row = ThisWorkbook.Worksheets("Andrew").Cells(Rows.Count,2).End(xlUp).Row
    Sheets("Andrew").Range("B" & last_row).Select
End Sub