如何在excel工作表的每行下面增加1個空行呢?實現的方法有兩種，第一是通過可視化界面菜單操作，第二是通過VBA代碼操作實現空行的添加。

　　在excel增加空行的效果如下圖所示：

　　每行下面增加1個空行的第一種方法：輔助列排序法。

　　操作步驟如下：

　　第一，單擊工作表第一列，在第一列前插入一空白列，然后用阿拉伯數字(1、2、3、4、5、6、7、8……)標注行序號，如圖所示：數據區域有10行。

　　第二，全選輔助列數據區序號，向下復制相等行數。

　　第三，單擊第一列第一個單元格，單擊菜單【數據】-【排序】命令，對數據區域按升序排序(輔助列為主鍵)。這樣就成功實現了隔行插入一個空行。

　　第四，將不需要的輔助列刪除即可。

　　第二種方法：使用VBA代碼實現增加和刪除空行。

　　在VBA代碼編輯界面輸入如下代碼，然后在工作表中執行宏，就可以輕松的隔行增加空行。

　　Sub insertrow()

　　Application.ScreenUpdating = False '關閉屏幕更新,提高代碼執行效率

　　I = [A65536].End(xlUp).Row '取得非空單元格行號

　　Rows(I + 1).RowHeight = 14.25 '設定插入空行行高為14.25,數字可修改

　　For I = [A65536].End(xlUp).Row To 1 Step –1 '執行循環

　　Rows(I).Insert Shift:=xlDown '執行插入

　　If I <> 1 Then

　　Rows(I).RowHeight = 14.25

　　End If

　　Next

　　Application.ScreenUpdating = True '打開屏幕更新

　　End Sub

　　操作方法：按ALT+F11直接進入VBA編輯器，在當前工程下新建模塊(【插入】-【模塊】)，在代碼窗口將上以代碼復制過去并保存。

　　需要執行隔行插入空行，直接運行子過程insertrow()即可。(快捷鍵F5)

　　如果在不需要空行的前提下，可以將空行刪除?那么，如何在excel中批量刪除空行呢?我們也是使用VBA代碼來實現。

　　代碼如下：

　　Sub deleterow()

　　Application.ScreenUpdating = False

　　Dim RowN As Integer

　　For RowN = 1 To 20 '20 視數據行進行更換

　　If ActiveSheet.Cells(RowN, 1).Value = "" Then

　　ActiveSheet.Cells(RowN, 1).Select

　　Selection.EntireRow.Delete

　　End If

　　Next

　　Application.ScreenUpdating = True

　　End Sub

　　執行以上代碼，運行宏，就可以實現批量刪除空行。