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运行代码即可。