这是我在评论中描述的简单版本。
Sub SwitchSheets()
Dim NextSheet As Worksheet
Set NextSheet = ActiveSheet.Next
If NextSheet Is Nothing Then
ThisWorkbook.Sheets(1).Activate
Else
NextSheet.Select
End If
End Sub
在View
选项卡上单击Macros
,选择SwitchSheets
,转到Options
并为其设置快捷键(Shift根据需要按住,将其添加到和弦中)。