VBA在G列找到空白單元格並刪除整行

以下是VBA代码，用于在G列找到空白单元格并删除整行：
Sub DeleteRowsWithEmptyCellsInColumnG()
Dim LastRow As Long
Dim i As Long

LastRow = ActiveSheet.Cells(Rows.Count, "G").End(xlUp).Row '找到最后一行

For i = LastRow To 1 Step -1 '从最后一行开始往上遍历
If Range("G" & i).Value = "" Then '如果G列为空
Rows(i).EntireRow.Delete '删除整行
End If
Next i
End Sub
登录后复制
请在Excel中按Alt + F11进入VBA编辑器，然后将代码复制粘贴到新模块中。最后，按F5运行代码即可。

相关问题

vba把H列中空白單元格篩選出來，並刪除整行

你可以使用VBA中的AutoFilter函数来筛选空白单元格，然后删除整行。
下面是一个示例代码：
Sub DeleteBlankRows()
'声明变量
Dim ws As Worksheet
Dim lastRow As Long
Dim rng As Range

'设置工作表
Set ws = ActiveSheet

'获取最后一行
lastRow = ws.Cells(Rows.Count, "H").End(xlUp).Row

'筛选空白单元格
ws.Range("H1:H" & lastRow).AutoFilter Field:=1, Criteria1:=""

'删除整行
Set rng = ws.Range("H2:H" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow
rng.Delete

'取消筛选
ws.AutoFilterMode = False
End Sub
登录后复制
这个代码将筛选出H列中的空白单元格，并删除整行。注意，这个代码将从第2行开始删除，因为第1行可能包含标题。

excel宏删除某列单元格为空的行

使用Excel VBA宏代码删除指定列中空白单元格所在的整行
为了高效处理大量数据并删除特定列中空白单元格所在的所有行，可以采用SpecialCells方法来定位这些空白单元格，而不是逐行遍历整个工作表。这种方法不仅提高了效率还简化了代码逻辑。
下面提供了一种基于给定参考资料优化后的解决方案：
Sub DeleteRowsWithBlankInColumn()
Dim ws As Worksheet
Set ws = ActiveSheet ' 或者更具体地定义工作表

On Error Resume Next ' 防止当没有匹配项时报错
Intersect(ws.Columns("A"), ws.UsedRange).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub
登录后复制
此段脚本通过交集操作限定只在实际使用的范围内查找空白单元格，并一次性删除它们所处的整行[^1]。对于非常大的数据集来说，这种方式能够显著减少执行时间。
另外一种更为灵活的方式适用于需要针对其他非首列的情况或是存在合并单元格的情形下:
Sub EfficientlyDeleteEmptyRowsBasedOnSpecificColumn()
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("SheetName") ' 替换为具体的表格名称
.AutoFilterMode = False

If .FilterMode Then .ShowAllData

LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row ' 假设目标列为"E"

With .Range("E1:E" & LastRow)
.AutoFilter Field:=1, Criteria1:=""
On Error Resume Next
.Offset(1, 0).Resize(LastRow - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
On Error GoTo 0
End With

.AutoFilterMode = False
End With
Application.ScreenUpdating = True
End Sub
登录后复制
这段程序首先关闭屏幕更新以加快运行速度，接着利用自动筛选功能快速找出所有符合条件（即该列为空白）的记录，并批量删除对应的行；最后恢复原始状态[^3]。