Private Sub CommandButton1_Click()
On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Cells.ClearContents
Range("A1").Select
列 = 1
栏 = 1
For 外层 = 2 To 5
For 内层 = 1 To 9
Application.ScreenUpdating = True
Cells(列, 栏).Activate
时 = Hour(Now())
分 = Minute(Now())
秒 = Second(Now()) + 1
等待时间 = TimeSerial(时, 分, 秒)
Application.Wait 等待时间
Cells(列, 栏) = 外层 & " × " & 内层
Application.ScreenUpdating = False
Cells(列, 栏 + 1) = "="
Cells(列, 栏 + 2) = 外层 * 内层
列 = 列 + 1
Next 内层
列 = 1
栏 = 栏 + 3
Next 外层
列 = 11
栏 = 1
For 外层 = 6 To 9
For 内层 = 1 To 9
Application.ScreenUpdating = True
Cells(列, 栏).Activate
时 = Hour(Now())
分 = Minute(Now())
秒 = Second(Now()) + 1
等待时间 = TimeSerial(时, 分, 秒)
Application.Wait 等待时间
Cells(列, 栏) = 外层 & " × " & 内层
Application.ScreenUpdating = False
Cells(列, 栏 + 1) = "="
Cells(列, 栏 + 2) = 外层 * 内层
列 = 列 + 1
Next 内层
列 = 11
栏 = 栏 + 3
Next 外层
Range("O2").Select
End Sub
执行后结果: