国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

方法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