Sub 乘法表()
Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer
For i = 1 To 9
For j = 1 To i
Sheets("sheet2").Cells(i, j) = i & "x" & j & "=" & i * j
Next j
Next i
Application.ScreenUpdating = True
End Sub
输出结果如下表:
Sub 乘法表()
Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer
For i = 1 To 9
For j = 1 To i
Sheets("sheet2").Cells(i, j) = i & "x" & j & "=" & i * j
Next j
Next i
Application.ScreenUpdating = True
End Sub
输出结果如下表: