Question

求excel 宏代码

A列有A1-A100，但是有的是空单元格，如何能让这些空格删除，下面的单元格顶上来，而不影响其他列。因为空单元格数量多，而且没规律，不可能一个个删除，请求大侠给一个宏代码，不胜感激！

Answer 1

正如whoAmI13所说，
通过“定位”(F5，Ctrl+G均可）功能中的“定位条件”，可以选择出所有的空值，再删除选择“下方单元格上移”即可。

如确实想用宏实现……代码如下
Sub Macro1()
For l = 1 To 100 '行
For c = 1 To 1 '列
If Cells(l, c) = "" Then Cells(l, c).Delete Shift:=xlUp
Next c
Next l
End Sub

Answer 2

可以用另外的方法来间接删除。
在B列输入序号，1，然后拉着公式到100行，最后松手前按一下ctrl键，这样就生成了1－100的序号。然后全选→单击数据菜单下面的 排序，按照第一列排序，升降都可以，把空行删掉。然后全选，按照第二列排序，选择升序。删掉第二列序号，完成任务。

Answer 3

不用这样的……
选中A列，按F5定位，选择空白值，删除即可

Answer 4

Sub Delete()
Dim i As Integer
//XX为你的工作表的名称，删除行一定要从下往上删
For i = Sheets("XX").[a65536].End(xlUp).Row To 1 Step -1
//Y为第几列，如果是A列那Y=1
If Cells(i, Y).Value = "" Then
Rows(i).Delete shift:=xlUp
End If
Next
End Sub