回复：求助大佬（删除Excel里面的空行）

Sub 删除空白单元格()
Dim sr As Range, sr2 As Range '申明变量
For Each sr In Range("a1:g32") '循环区域
If sr = "" Then '条件判断
If sr2 Is Nothing Then '条件判断
Set sr2 = sr '赋给变量
Else
Set sr2 = Union(sr, sr2) '把空单元格并集赋变量
End If
End If
Next
sr2.Select '选择所有空单元格
sr2.Delete xlUp '删除空单元格，内容向上移动
End Sub