宏的简单应用

178490420

用绘图插入一个矩形，点击右键，在菜单中点击指定宏，再点击新建。
会出现
Sub 矩形1_单击()
End Sub
然后在里面输入下面的内容：

Sub 矩形1_单击()
Dim X As Integer '声明 X为整数型变量
For X= 1 To 20 'X的值为从1到20循环
Sheets("sheet1").Cells(x, 1) = x '单元CELLS(X,1)的值班等于X值
Next
End Sub


其中：
DIM表示变量名称
AS表示变量类型  
Intege表示整数型   
Cells表示单元格