如何在VBA中編寫EXCEL批量刪除空行

方法是選擇包含要刪除的資料的資料區域，如A2：D10，然後按F5鍵開啟“定位”對話方塊，點選“定位條件”，開啟“定位條件”對話方塊，選擇“空值”，可以批量選擇空白行，然後右鍵選擇刪除。

Excel批量刪除空行方法2：

我們可以在它旁邊的空白列中輸入 1，然後將其作為輔助列向下拉。 然後開啟“過濾器”，過濾“空白”，刪除這些處於過濾器狀態的空白行，最後關閉過濾。

Excel批量刪除空行方法3：

如果工作表中有大量空白行，則可以使用 vba** 來實現它。 方法是：按alt+F11，開啟VBE裝置，插入-module，複製下面的**，然後按F5鍵執行。

sub 批量刪除空行 （）

dim lastrow as long

dim r as long

lastrow = - 1 +

falsefor r = lastrow to 1 step -1if = 0 then rows(r).deletenext r

trueend sub

1.在工作表中，單擊選單欄中的[開發租賃工具]，然後單擊工具欄中的[Visual Basic]。

2.您將進入VBA介面！ 單擊選單欄中的“插入”，然後在其下拉選單中選擇“模組”。

3. 將彈出模組視窗。

<>5.在VBA視窗中，點選 [執行] 按鈕。

6. 工作表中的第二個空白行已被刪除。

1.首先，在開發工具中開啟VBA。

2.在單元格區域中輸入一些內容。

3. 將模組插入 VBA。

4. 在模組中輸入以下 **，然後執行 sub Clear blank data rows（）dim i as longfor i=cells（1048576， 2）。end(xlup).row to 3 step-1if cells(i, 3)="then'如果單元格是 cells（i，1）。

如果滿足條件，則刪除整個結束 ifnext 行'檢測下乙個結束子。

5. 使用快捷鍵。

Alt+F8 調出巨集視窗，然後單擊“執行”按鈕，程式執行後，第三列中空白單元格的行將被刪除。

1. 開啟要刪除空行的文件。

2. Alt+F11 開啟 VB，然後右鍵單擊以建立乙個新模組。

3. 建立新模組後，輸入。

sub 刪除空行（）。

dim aa = 1

do while cells(a, "a")if cells(a, "d") thenrows(a).select

shift:=xlup

elsea = a + 1

end if

loopend sub。

4.進入**後，在工具欄中找到開發工具-巨集，點選執行命令。

5. 找到並執行刪除空行的巨集，然後單擊“執行”。

6.操作完成後，可以刪除空行。

1.找到容量比較大的excel檔案，右鍵單擊該檔案，然後單擊列表中的“屬性”。

2.您可以在屬性介面中看到檔案的大小，占用空間。

3.開啟容量比較大的檔案。

4. 同時按住 Ctrl+G，介面中會出現乙個對話方塊。

5. 點選“定位”選項。

6. 在“定位”介面選擇物件，然後點選：定位。

7.之後，單擊對話方塊中的物件，將出現乙個小虛線框，您可以通過按住刪除鍵將其刪除。

8. 操作完成後，記得點選“檔案”-“儲存”。

9. 此時，右鍵單擊該檔案，然後單擊列表中的屬性。

10、屬性介面中中文部分的尺寸變小了，開通速度變快了。

1. 在工作表中，單擊選單欄中的 [開發工具]，然後在工具欄中單擊 [Visual Basic]。

2.您將進入VBA介面！ 單擊選單欄中的“插入”，然後在其下拉選單中選擇“模組”。

3. 將彈出模組視窗。

<>5.在VBA視窗中，點選 [執行] 按鈕。

6. 工作表中的第二個空白行已被刪除。

如果刪除的行每次都相同，請使用它。

rows("5:10").delete

rows("13:15").delete

rows("17:20").delete

如果每次都不同，請使用它。

sub macro1()

dim i as integer '小於 32,767（帶整數）

dim i as long '超過 32,767 個長

for i = [a20].end(1).row to 1 step -1 '從 a20 到 a1 的末尾，步長為 -1，即從每個週期中減去 1

if cells(i, 1) = "" then '確定第 i 行是否為空？

range("a" & i & ":e" & i).select '然後選擇 ai：ei

shift:=xlup '下部單元格向上移動以刪除該行，因此刪除不會影響 F 列中的資料。

end if

nextend sub

假設您想在 b 列中找到乙個空白單元格。

sub my()

dim i as long

for i = 1 to [a65536].end(xlup).row

if cells(i, 2) = "" then '這裡 2 是您的列數，可以由您自己替換。

rows(i & ":" & i).delete shift:=xlup

end if

nextend sub

sub null 刪除整行 （）。

with activesheet

for i = .[a65536].end(3).row to 1 step -1 '這裡 1 是標題中的行數。

if .cells(i, 2) = "" then .rows(i).delete '這裡 2 是您的列數，可以由您自己替換。

nextend with

end sub

當我們使用excel統計和分析物件時，資料錄入工作不可能一蹴而就，記錄的新增、刪除、剪下、合併是必不可少的，經過多次修改過程後，**中往往會出現很多空白行。 這些空行的存在不僅難看，而且會影響資料分析的結果，通常會被刪除。 如果 ** 中的空白行較少，那麼你只需要逐行刪除它們，但如果工作表很大（例如數千行）並且 ** 中有很多空白行，手動逐行刪除它們無疑會消耗大量時間。

如果你經常遇到這樣的麻煩，不妨嘗試以下方法，可以快速、乾淨、批量地清理出名義上的空白行。

定位“方法。 **完成後，當您需要刪除批次中的空白行時，依次點選選單欄中的“定位”，然後在彈出的“定位”對話方塊中點選“定位條件”按鈕。 在彈出的“定位條件”對話方塊中，單擊“Null Value”單選按鈕（如圖1所示），然後單擊“確定”按鈕。 好了，現在我們來看看**中的所有空白行是否都被選中了，它們都顯示為藍色。

點選選單欄中的“刪除”，看到**中的空行已經消失得無影無蹤。

小技巧：使用此方法刪除時，請確保其他非空行中的所有單元格都用數值填充，否則非空行中的空單元格也將被刪除，這將直接導致**格式的完全混亂。

Excel 教程 40：在處理大量資料時，由於反覆刪除、插入、修改而產生大量空白行，手動刪除這些空白行需要花費大量的時間和精力，那麼如何快速批量刪除整個**的所有空白行呢？

Microsoft Excel是Microsoft為使用Windows和Apple Macintosh作業系統的計算機編寫的電子軟體。

在Excel中批量刪除空白行的2種方法。