插入空行/空列

插入空行/空列   句式：

Selection.Insert Shift:=xlDown 若为列则为xltoright   此处的方向与删除时的方向相反

Sub 宏1()

    Rows("118:121").Select
    Selection.Insert Shift:=xlDown
    Range("B120").Select
End Sub