好像是程序语法问题,使得Excel进程不能关闭(第二部分)

       SheetNum = 1                            '将兰球开奖数据写入各sheet页
        Pst = 8
        LottoryBook.Sheets("原始开奖数据").Select
        If Combo1.Text = "双色球兰球分析" Then
            Data = LottorySheet.Cells(2, Pst)
            LieNum = Data + 1
            Select Case Data                    '根据兰球数值判断放入2或4区的位置
                Case 1 To 2
                    TWBCol = 2
                    FBCol = 2
                Case 2 To 4
                    TWBCol = 3
                    FBCol = 2
                Case 6 To 8
                    TWBCol = 4
                    FBCol = 3
                Case 9 To 10
                    TWBCol = 5
                    FBCol = 3
                Case 11 To 12
                    TWBCol = 6
                    FBCol = 4
                Case 12 To 14
                    TWBCol = 7
                    FBCol = 4
                Case 15 To 16
                    TWBCol = 8
                    FBCol = 5
                Case 17 To 18
                    TWBCol = 9
                    FBCol = 5
            End Select
            For I = 1 To 5
                Select Case SheetNum
                    Case 1   '向走势分布页写数据
                        Set LottorySheet = LottoryBook.Worksheets("走势分布")
                        LottoryBook.Sheets("走势分布").Select
                        LottorySheet.Cells(2, LieNum) = Data
                        LottorySheet.Cells(2, 1) = Issue
                        SheetNum = SheetNum + 1 
                    Case 2   '向个位频率页写数据
                        Rows = 2
                        Set LottorySheet = LottoryBook.Worksheets("个位频率")
                        LottoryBook.Sheets("个位频率").Select
                        Debug.Print "Data:"; Data
                        Call GeWei_Judge(Data)
                        If Str = 0 Then
                            LieNum = LieNum + 10
                            LottorySheet.Cells(2, LieNum) = Str
                        ElseIf Str = 1 Then
                            LottorySheet.Cells(2, LieNum) = Str
                        ElseIf Str = 2 Then
                            LottorySheet.Cells(2, LieNum) = Str
                        ElseIf Str = 3 Then
                            LottorySheet.Cells(2, LieNum) = Str
                        ElseIf Str = 4 Then
                            LottorySheet.Cells(2, LieNum) = Str
                        ElseIf Str = 5 Then
                            LottorySheet.Cells(2, LieNum) = Str
                        ElseIf Str = 6 Then
                            LottorySheet.Cells(2, LieNum) = Str
                        ElseIf Str = 7 Then
                            LottorySheet.Cells(2, LieNum) = Str
                        ElseIf Str = 8 Then
                            LottorySheet.Cells(2, LieNum) = Str
                        ElseIf Str = 9 Then
                            LottorySheet.Cells(2, LieNum) = Str
                        End If
                        LottorySheet.Cells(2, 1) = Issue
                        Debug.Print "Data:"; Data
                        SheetNum = SheetNum + 1
                    Case 3   '向AC值布页写数据
                        Set LottorySheet = LottoryBook.Worksheets("AC值")
                        LottoryBook.Sheets("AC值").Select
                        LottorySheet.Cells(2, ACLie) = AC
                        LottorySheet.Cells(2, 1) = Issue
                        SheetNum = SheetNum + 1
                    Case 4   '向2区间页写数据
                        Set LottorySheet = LottoryBook.Worksheets("2区间")
                        LottoryBook.Sheets("2区间").Select
                        LottorySheet.Cells(2, TWBCol) = Data
                        LottorySheet.Cells(2, 1) = Issue
                        SheetNum = SheetNum + 1
                    Case 5   '向4区间页写数据
                        Set LottorySheet = LottoryBook.Worksheets("4区间")
                        LottoryBook.Sheets("4区间").Select
                        LottorySheet.Cells(2, FBCol) = Data
                        LottorySheet.Cells(2, 1) = Issue
                        SheetNum = SheetNum + 1
                End Select
            Next I
        Else
            Pst = 2
            Do                                              '红球共6个数,故从原始开奖数据处列2到7取6次数据
                SheetNum = 1                                '再次初始化SheetNum
                Set LottorySheet = LottoryBook.Worksheets("原始开奖数据")
                Data = LottorySheet.Cells(2, Pst)
                If Data = 1 Or Data = 2 Then                '根据红球数值判断放入2区的位置
                    TWBCol = 2
                ElseIf Data = 3 Or Data = 4 Then
                    TWBCol = 3
                ElseIf Data = 5 Or Data = 6 Then
                    TWBCol = 4
                ElseIf Data = 7 Or Data = 8 Then
                    TWBCol = 5
                ElseIf Data = 9 Or Data = 10 Then
                    TWBCol = 6
                ElseIf Data = 11 Or Data = 12 Then
                    TWBCol = 7
                ElseIf Data = 13 Or Data = 14 Then
                    TWBCol = 8
                ElseIf Data = 15 Or Data = 16 Then
                    TWBCol = 9
                ElseIf Data = 17 Or Data = 18 Then
                    TWBCol = 10
                ElseIf Data = 19 Or Data = 20 Then
                    TWBCol = 11
                ElseIf Data = 21 Or Data = 22 Then
                    TWBCol = 12
                ElseIf Data = 23 Or Data = 24 Then
                    TWBCol = 13
                ElseIf Data = 25 Or Data = 26 Then
                    TWBCol = 14
                ElseIf Data = 27 Or Data = 28 Then
                    TWBCol = 15
                ElseIf Data = 29 Or Data = 30 Then
                    TWBCol = 16
                ElseIf Data = 31 Or Data = 32 Then
                    TWBCol = 17
                ElseIf Data = 33 Then
                    TWBCol = 18
                End If
                If Data = 1 Or Data = 2 Or Data = 3 Then     '根据红球数值判断放入3区的位置
                    ThrBCol = 2
                ElseIf Data = 4 Or Data = 5 Or Data = 6 Then
                    ThrBCol = 3
                ElseIf Data = 7 Or Data = 8 Or Data = 9 Then
                    ThrBCol = 4
                ElseIf Data = 10 Or Data = 11 Or Data = 12 Then
                    ThrBCol = 5
                ElseIf Data = 13 Or Data = 14 Or Data = 15 Then
                    ThrBCol = 6
                ElseIf Data = 16 Or Data = 17 Or Data = 18 Then
                    ThrBCol = 7
                ElseIf Data = 19 Or Data = 20 Or Data = 21 Then
                    ThrBCol = 8
                ElseIf Data = 22 Or Data = 23 Or Data = 24 Then
                    ThrBCol = 9
                ElseIf Data = 25 Or Data = 26 Or Data = 27 Then
                    ThrBCol = 10
                ElseIf Data = 28 Or Data = 29 Or Data = 30 Then
                    ThrBCol = 11
                ElseIf Data = 31 Or Data = 32 Or Data = 33 Then
                    ThrBCol = 12
                End If