您可以使用Excel的過濾功能來自動刪除空白行。首先，在Excel中選擇數(shù)據(jù)范圍，然后點(diǎn)擊“數(shù)據(jù)”選項(xiàng)卡，在“篩選”組中點(diǎn)擊“過濾”。接下來，在彈出的對話框中選擇“自定義 filters”，并勾選“只顯示特定值”。在下拉菜單中選擇“空白”，然后點(diǎn)擊確定。這樣就可以只顯示不為空的數(shù)據(jù)行了。希望對您有所幫助！
-
-
1、打開要刪除空白行的文檔。
2、Alt+F11打開VB編輯器，右鍵新建一個模塊。
3、新建模塊后，輸入
Sub 刪除空行()
Dim a
a = 1
Do While Cells(a, "a") <> ""
If Cells(a, "D") = "" Then
Rows(a).Select
Selection.Delete Shift:=xlUp
Else
a = a + 1
End If
Loop
End Sub。
4、輸入代碼后，在工具欄中找到開發(fā)工具——宏，點(diǎn)擊執(zhí)行命令。
5、找到并執(zhí)行刪除空行的宏，然后點(diǎn)擊執(zhí)行。
6、運(yùn)行完成后，就可以把空白行刪除了。
-
全自動刪除所有空行空列代碼：
Sub 刪除所有空行和空列()
For Each Sheet In Sheets
Sheet.Select
Sheet.UsedRange.UnMerge
Call DeleteEmptyRows
Call DeleteEmptyColumns
Rows.AutoFit
Columns.AutoFit
Next
End Sub
Sub DeleteEmptyRows()
Dim LastRow As Long
Dim r As Long
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(r)) = 0 _
Then Rows(r).Delete
Next r
Application.ScreenUpdating = True
End Sub
Sub DeleteEmptyColumns()
Dim LastColumn As Long
Dim r As Long
LastColumn = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count
Application.ScreenUpdating = False
For r = LastColumn To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(r)) = 0 _
Then Columns(r).Delete
Next r
Application.ScreenUpdating = True
End Sub -
直接按鍵盤F5，找到定位條件，或者是開始里面的《查找和選擇》，選擇《定位條件》。
然后選擇《空值》，確定后所有空值就被選出來了。
接著點(diǎn)擊開始里面的《清除》，選擇《全部清除》。就可以一次性刪除所有空白行了。 -
Sub ClearBlank()
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
End Sub
上面的這段代碼可以幫你刪除所有的空白行.但是我不知道能不能幫助你,最好是能把你的附件上傳上來 -
把賬單上需要刪除空白行所在的列選中，例如B列金額要刪除空白的行，就把B列選中，然后在Excel開始工具欄中點(diǎn)擊查找和選擇，選擇定位條件，在彈出窗口中選擇空值，確定。這樣就把B列中空白的單元格都選中了，右擊其中一個被選中的單元格，選擇關(guān)鍵菜單里的刪除行，然后選擇整行刪除就可以了。
-
很方便的，你可以利用刪除空格的原理來刪除，先選擇區(qū)域，然后F5---定位---定位條件---選“空值”---右鍵---刪除。
-
也不能說人家不對，提問者一開始就說要自動的，如果真的要手動刪除，就沒必要拿到百度上來問了。
把下列代碼復(fù)制過去，運(yùn)行一下就行了，此代碼是基于Sheet1的A列中的單元格為空時刪除行的，而且只考慮20行，多的話，可以將20改大一些，除非你真的有幾萬行的數(shù)據(jù)，否則不要在整列中做循環(huán)，會影響系統(tǒng)運(yùn)行的。
還想更自動的話，可以把此代碼放在工作簿打開事件、關(guān)閉事件，或工作表事件中去。
Sub DelBlank()
For i = 20 To 1 Step = -1
If Sheet1.Cells(i, 1) = "" Then
Rows(i).Delete
End If
Next i
End Sub
對，你說得沒錯。在連續(xù)兩個都是空行的時候，就會存在這樣的問題，還是有的空行刪不了。只有多運(yùn)行一兩遍代碼了。
不過，我已經(jīng)修改了一下代碼，從后往前循環(huán)，就沒有問題了。
最新回答 更多>
相關(guān)問答
- 華為C8650手機(jī)新?lián)Q的屏幕為何屏幕變暗了？
- 開汽車4s店要什么條件？？？
- ipad2為什么會自動下載游戲啊?我在關(guān)機(jī)后,但好像網(wǎng)絡(luò)沒有關(guān),第二天打開ipad會發(fā)現(xiàn)有很多游戲在桌面上
- 榮耀手機(jī)怎么投屏到惠普電腦
- 手機(jī)屏幕太大,玩游戲花屏,有什么解決方法
- CAD量大小
- 自動焊錫機(jī)器人和波峰焊的不同介紹
- EXO的吳世勛和鹿晗 誰更帥??？？？
- 步步高青花瓷手機(jī)現(xiàn)價多少？
- 視力最好的動物是什么動物？
- 網(wǎng)頁如何轉(zhuǎn)換成PPT
- 15樓16樓哪個來自樓層好？
- PS相片的提線
- ps腫么在畫布上插入原圖
- 北京舊車對換和補(bǔ)貼政策最高多少元?