这是我在评论中描述的简单版本。
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根据需要按住,将其添加到和弦中)。