excel auto delete empty cell

来源:互联网 发布:淘宝卖家评价回复模板 编辑:程序博客网 时间:2024/06/14 07:36
Sub Macro1()
Dim rg As Range
 For Each rg In [a1:a500]
 If rg = "" Then
 rg.Delete shift:=xlUp
 End If
 Next
End Sub
0 0