有時(shí)我們需要在Excel工作表中隔行插入一個(gè)空行，假如行數(shù)較多的話，手工逐一插入空行太繁瑣。用下面的方法就可以快速隔行插入一個(gè)空行：
方法一：用輔助列
例如數(shù)據(jù)在A1:D23區(qū)域中，現(xiàn)在要從第2行開始隔行插入一空行。
1.在工作表的左邊插入一列，如果有現(xiàn)成的空列就使用該空列。
2.在A1和A2單元格分別輸入數(shù)字“1”、“2”，然后選擇A1:A2，將光標(biāo)放到該區(qū)域右下角的填充柄上，當(dāng)鼠標(biāo)指針變成細(xì)十字形時(shí)，雙擊填充柄向下填充序列。
3.這時(shí)序列“1-23”已填充到A1:A23區(qū)域，復(fù)制該區(qū)域。
4.在A列的第一個(gè)空單元格中粘貼該序列，此處將數(shù)字“1-23”粘貼到A24:A46區(qū)域中。
5.選擇A1:A46區(qū)域中的任一單元格，單擊工具欄中升序排序按鈕“A→Z”進(jìn)行排序，完成空行的插入。
6.刪除A列。
如果要隔行插入多個(gè)空行，可以將上述序列在A列中重復(fù)粘貼幾次再進(jìn)行排序。
方法二 用VBA代碼
用下面的VBA代碼也可以實(shí)現(xiàn)隔行插入一個(gè)空行。按Alt+F11，打開VBA編輯器，在右側(cè)的代碼窗口中輸入下面的代碼：
Sub 隔行插入一行()
p = [a65536].End(xlUp).Row
For i = 2 To p * 2 Step 2
Rows(i & ":" & i).Insert Shift:=xlDown
Next i
Range("A1").Select
End Sub
Sub 恢復(fù)()
p = [a65536].End(xlUp).Row
For i = 2 To p
Rows(i & ":" & i).Delete Shift:=xlUp
Next i
Range("A1").Select
End Sub
然后關(guān)閉VBA編輯器，回到Excel窗口中，按Alt+F8，打開“宏”對話框，選擇“隔行插入一行”，單擊“執(zhí)行”按鈕即可插入空行。如果要恢復(fù)插入空行前的狀態(tài)，執(zhí)行“恢復(fù)”宏命令即可。
說明：運(yùn)行上述VBA代碼前要確保A列中存在數(shù)據(jù)，否則不能實(shí)現(xiàn)隔行插入空行的目的。
