插入行的3中写法

一成不变变

插入行的3中写法

Sub 插入1()
    a = 3
    For i = 1 To a
        Rows(3).Insert shift:=xlDown
    Next
End Sub
Sub 插入指定行()
  a = 3
  Rows(3).Resize(a).Insert shift:=xlDown
End Sub
Sub 插入2()
    a = 6
    Range("A3:A" & a).EntireRow.Insert shift:=xlDown
End Sub

刘苏

你好：建议穿件马甲：
【VBA】插入行的3种写法

【Excel题库】题库发帖建议
http://www.excelpx.com/thread-375524-1-1.html

可以加上必要的文字描述
虽然是水经验，但万一以后自己或是谁翻到了呢？