文章列表
Sub f1()
m = InputBox("Please enter your number!")
For i = 1 To m
For j = 1 To m
If i = j Then ' 对角线
Cells(i, j).Value = i * i
Cells(i, j).Interior.ColorIndex = 35
End If
If i > j Then ' 下三角
Cells(i, j).Value = i * ( ...