20150916_018 插入行()

Sub 插入行()
    Dim myRow As Long ‘定义myRow变量，用于存储原表中数据的行数；   

    Dim i As Long  ‘定义i变量，作为循环变量；
   
    myRow = Range("A" & Rows.Count).End(xlUp).Row ‘ 用rows.count得到excel表总行数，然后利用Range("A" & Rows.Count).End(xlUp)得到最为一行不为空的单元格，然后利用Range("A" & Rows.Count).End(xlUp).Row得到单元格的具体行数，赋值给myRow；

     For i = 2 To 2 * myRow Step 2  ‘利用for循环，从第二行开始；因为要插入1行，所以是2*myRow，如果插入2行，就是3*myrow；如果插入1行，步长step为2，如果插入2行，步长step3；
        Cells(i, 1).EntireRow.Insert   ‘完成单元格插入行的操作，如果需要插入两行，再重复写一次这个代码即可；
    Next i ‘循环结束；

End Sub

20150916_018 插入行()

原文：http://www.cnblogs.com/hutie1980/p/4808284.html