方法1:

Sub ppplll()
Dim m As Integer, N As Integer
For m = 1 To 9
For N = 1 To 9
If N >= m Then
ActiveSheet.Cells(N, m) = m & "+" & N & "=" & m + N
End If
Next N
Next m
End Sub

-----------------------

方法2

Sub Plus()
Dim m As Integer, N As Integer
For m = 1 To 9
For N = m To 9
ActiveSheet.Cells(N, m).Value = m & "+" & N & "=" & m + N
Next N
Next m
End Sub

----------------

换方向

Sub aaaaa()
Dim m As Integer, n As Integer
For m = 9 To 1 Step -1
For n = 9 To m Step -1
ActiveSheet.Cells(10 - n, 10 - m).Value = m & "*" & n & "=" & m * n
Next n
Next m
End Sub