Excel 2013 64bit VBA如何打开工作表专注于最后空行

Question

感谢您检查此问题。

我有一个工作簿，它有工作表上的用户名。 工作簿打开时的第一个工作表是一个'菜单'表单，它作为4个命令按钮（每个用户1个按钮），当他们单击它们的按钮时，它将把它们带到他们的工作表中。 我想，当他们点击他们的按钮出现的情况是

• 去他们的工作
• 设置光标在最后的空行（滚动光标的位置）。

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

当前的代码我有一个“菜单”工作表：

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）

我很感谢您可能有任何帮助或建议。

干杯， ShyButterfly

Answer 1

有趣的阅读：

How to avoid using Select in Excel VBA macros

还要确保

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