excel 简单VBA求助，如果C列中单元格为空格，则删除这一行，VBA代码是什么

添加入下代码，执行即可。
Sub 删除行()
Dim i%, r%
r = Range("a" & Rows.Count).End(xlUp).Row
For i = r To 1 Step -1
If Cells(i, 3).Value = "" Then
Cells(i, 3).EntireRow.Delete
End If
Next i

End Sub

ALT+F11 粘贴如下代码

Option Explicit
Sub dlt()
Dim rng As Range
For Each rng In Intersect(ActiveSheet.UsedRange, Columns("C"))
If rng.Value = "" Then rng.EntireRow.Delete
Next
End Sub

Sub Macro1()
'
' Macro1 Macro
'
y = 1
x = 3
Do While y <= 14
If Cells(y, x).Value = "" Then
MsgBox ("empty")
Selection.EntireRow.Delete
End If
y = y + 1
Cells(y, x).Select
Loop
End Sub