方法一:较短的数列
1
先在要有递增数列的前面两格打上1、2
2
然后选中这两个单元格,将鼠标放在第二个单元格的右下角
3
当鼠标变成【+】时,按住鼠标左键向下拖动,可以看到每拖到一个单元格,会出现数字提示
4
然后拖动到你需要的数字时,松开鼠标左键,这样一个递增数列就完成了,横向的数列也是如此
5
如果需要比较长的数列,比如1-100,这样拉就有点不好掌握,就可以用下面的方法
END
方法二:较长的数列
先选中数列的起始位置,输入起始数字1
点击【开始】下的【填充】-【序列】
然后在弹出的窗口中选择【行/列】,数据类型选【等差序列】
设置步长值和终止值,步长值就是两个序号之间的差,终止值就是最后的数值
这样也可以有一列递增数列
可以改成这样:
Sub Myprint()
i=1
Do while i<=10
j=1
do while j<=i
print i & “x” & j “ “
j=j+1
Loop
Loop
End sub
需要两层循环。
把print i 替换成
j=1
do while j<=i
print j
j=j+1
loop
试下这个
Sub AA()
Dim K, I
For I = 1 To 10
For K = 1 To 10
If K <= I Then
Range(Cells(I, K), Cells(I, K)) = K
End If
Next
Next
End Sub
这个不就是99乘法表吗,网上随便一搜都太多了