如果在列范围内所有单元格都为空白，则在Excel中删除一行

Question

I have been looking around for an answer to this question for awhile now. I've found multiple great resources that show how to use a macro to delete a row if a cell within a specified column is blank but I haven't been able to find anything that will allow you to check a range of columns and delete a row if all cells in that range of columns is empty (if D1:F1 is entirely blank then delete row 1 but if in the range D2:F2 E2 has data in it don't delete that row).

Here's the code that I've been trying to mess around with

Application.ScreenUpdating = False
Columns("D:D").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True

I found the above code from this answer Excel VBA: Delete entire row if cell in column A is blank (Long Dataset)

If I try and modify that code to say

Columns("D:F").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

I then get an error message which says "Run-time error 1004: Cannot use that command on overlapping sections."

Answer 1

您必须做一个气泡来遍历各列，因为如果同一行中有不止一个单元格中有空白单元格，则该气泡将不起作用。