vba学习笔记-循环for（1）

学习vba主要是解决日常重复的操作释放自己，for就是精华所在。

试手例子：工资表添加抬头

思考：分别在第3行、第5行、第7行添加表头，添加的为基数行数。（原来的行会由于添加表头会往下退行）

““·

Sub 添加工资条表头()

Dim i, j As Integer

姓名共16个，本需要重复16次，由于第一行已经有了抬头，所以需要15次重复复制。

Range(“A65536”).End(xlUp).Row获取最后数据最后一行位置，实际要添加的表头数量要除去第一行，所以减1，而添加表头总行数为 (Range(“A65536”).End(xlUp).Row – 1) * 2

j = (Range(“A65536”).End(xlUp).Row – 1) * 2

For i = 3 To j Step 2

    Rows(“1:1”).Copy

    Range(“A” & i).Insert Shift:=xlDown

Next i

End Sub

““