excel中的动态默认打开页面

下面是我在表1中的数据

ID Jan-13 Feb-13 Mar-13 Apr-13 Apr-13 May-13 Jun-13 Jul-13 Aug-13 Sep-13 A1 12 16 26 46 10 20 50 40 25 15 A2 24 18 24 26 20 20 20 20 25 25 A3 48 15 30 18 30 10 10 10 20 45 A4 16 51 20 10 40 50 20 30 30 15

---

询问代码的问题必须证明对正在解决的问题的最低理解。包括尝试过的解决方案、它们不起作用的原因以及预期结果。另请参见：我的问题是否不清楚？您尚未显示尝试解决方案的证据。正在给出预期结果，同时也提供了我的尝试。请帮我修一下。 ID Apr-13 May-13 Jun-13 Jul-13 Aug-13 Sep-13 A1 10 20 50 40 25 15 A2 20 20 20 20 25 25 A3 30 10 10 10 20 45 A4 40 50 20 30 30 15 ID May-13 Jun-13 Jul-13 Aug-13 Sep-13 Oct-13 A1 20 50 40 25 15 10 A2 20 20 20 25 25 25 A3 10 10 10 20 45 35 A4 50 20 30 30 15 30

Sub Workbook_Open()
    Cells(A1).Select
    Selection.End(xlToRight).Select
    r = Selection.Row
    c = Selection.Column
    If Month(Cells(r, c)) = Month(Cells(r + 1, c)) + 1 Then
        ActiveCell.Offset(0, -7).Select
        Range(Selection, Cells(ActiveCell.Row, 2)).Select
        Selection.Hide
        Cells(r, c).Select
        ActiveCell.Offset(1, 1).Select
        Range(Selection, Cells(ActiveCell.Row, Selection.End(xlToRight).Select)).Select
        Selection.Hide
    Else
        Cells(r, c).Content.Cut
        ActiveCell.Offset(0, 1).Select
        Selection.Paste
    End If
End Sub