首先，我们在Excel表格中如图按升序将数字输入表格，以方便在VBA中进行读取和处理操作。如图：
进入VBA环境，可以按键盘上的“Alt+F11”进入。双击“Microsoft Excel对象”下面的sheet1（sheet1），为表格sheet1添加代码
在sheet1代码编辑窗口中添加如下代码：Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i, j, k, introw, intcol As Integer For k = 1 To 184 For i = 4 To 26 For j = 2 To 31 If Sheets(1).Cells(i, j).Value = k Then Application.Wait (Now + TimeValue('00:00:01') * 0.5) Sheets(1).Cells(i, j).Interior.ColorIndex = 3 End If Next j Next i Next k For k = 1 To 6 Application.Wait (Now + TimeValue('00:00:01') / 1.5) For i = 5 To 23 For j = 6 To 12 If Sheets(1).Cells(i, j).Value = 1000 And (k Mod 2 = 0) Then Sheets(1).Cells(i, j).Interior.ColorIndex = 3 End If If Sheets(1).Cells(i, j).Value = 1000 And (k Mod 2 = 1) Then Sheets(1).Cells(i, j).Interior.ColorIndex = 0 End If Next j Next i Next kCells.ClearFormatsEnd Sub