倒立乘法表VBAVBA写倒立乘法表Sub2()Forj=9To1Fori=1To9s=j*iCells(j+15,i+2)=i&"⊙"&j&"="&j*iNextiNextjEndSubX12345679

Question

倒立乘法表 VBA
VBA写倒立乘法表
Sub 2()
For j = 9 To 1
For i = 1 To 9
s = j * i
Cells(j + 15, i + 2) = i & "⊙" & j & "=" & j * i
Next i
Next j
End Sub

X
1
2
3
4
5
6
7
9
　
　
　
　
　
　
　
8
　
　
　
　
　
　
　
7
　
　
　
　
　
　
　
6
　
　
　
　
　
　
　
5
　
　
　
　
　
　
　
4
　
　
　
　
　
　
　
3
　
　
　
　
　
　
　
2
　
　
　
　
　
　
　
1
　
　
　
　
　
　
　

Answer 1

Sub ls()
For j = 9 To 1 Step -1
For i = 1 To 9
s = j * i
Cells(j + 15, i + 2) = i & "⊙" & j & "=" & j * i
Next i
Next j
End Sub