修法布施得聪明智慧，多分享让生活更美好。在工作中经常处理表格数据时，需要删除中大量空行或空格，一一行或一一格删除费时费力，下面分享不同情况的空行（空格）批量删除。
百度经验里的宏代码复制出来有空行（空格），怎样批量删除。下面以《
Excel数据重复或+空格怎样批量合并单元格》经验为例。
2Excel数据重复或+空格怎样批量合并单元格
首先打开上例文件，如下图。
然后按下快捷键ALT+F11打开VBA（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。
然后插入了一个模块1，在代码框中复制如下代码：
Sub 选数据删除每列行空格()
'2020-5-27 21:39:31
Dim myr As Range, i As Long
Set myr = Selection
Application.ScreenUpdating = False
For i = myr.Count To 1 Step -1
If myr.Cells(i).Value = "" Then
myr.Cells(i).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub
以上操作动态过程如下：
回到工作表窗口，首先选原数据表，然后运行【选数据删除每列行空格】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名，点【执行】），执行后生成结果，运行过程如下图。
以上是一列多行，多列多行运行结果怎样？(运行宏方法同上)
数据区域行中全是空格才删除。
在上面模块1框复制如下代码：
Sub 选数据删除全空格行()
'2020-5-27 22:00:02
Dim myr As Range, r As Long, c As Long, i As Long
Set myr = Selection
r = myr.Rows.Count
c = myr.Columns.Count
Application.ScreenUpdating = False
For i = r To 1 Step -1
If Application.WorksheetFunction.CountA(Range(myr.Cells(i, 1), myr.Cells(i, c))) = 0 Then
Range(myr.Cells(i, 1), myr.Cells(i, c)).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub
回到工作表窗口，先选数据，然后在菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选宏名“选数据删除全空格行”点【执行】，生成结果。
数据区域空格时删除整行，会把其他列数据所在行也删除了，这种情况怎样处理？
在上面模块1框复制如下代码：
Sub 选数据有空格删除整行()
'2020-5-27 22:10:31
Dim myr As Range, i As Long
Set myr = Selection
Application.ScreenUpdating = False
For i = myr.Count To 1 Step -1
If myr.Cells(i).Value = "" Then
Rows(myr.Cells(i).Row).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub
Range(myr.Cells(i, 1), myr.Cells(i, c)).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub
回到工作表窗口，先选数据，然后在菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选宏名“选数据有空格删除整行”点【执行】，生成结果。
数据区域全空行时删除整行，会把其他列数据所在行也删除了，这种情况怎样处理？
在上面模块1框复制如下代码：
Sub 选数据全空行删除整行()
'2020-5-27 22:25:08
Dim myr As Range, r As Long, c As Long, i As Long
Set myr = Selection
r = myr.Rows.Count
c = myr.Columns.Count
Application.ScreenUpdating = False
For i = r To 1 Step -1
If Application.WorksheetFunction.CountA(Range(myr.Cells(i, 1), myr.Cells(i, c))) = 0 Then
Rows(myr.Cells(i, 1).Row).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
End Sub
回到工作表窗口，先选数据，然后在菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选宏名“选数据全空行删除整行”点【执行】，生成结果。
删除同一个数据单元格或行。
将上面代码中一句修改下：
myr.Cells(i).Value = ""改为myr.Cells(i).Value = "填写要删除数据"
If Application.WorksheetFunction.CountA(Range(myr.Cells(i, 1), myr.Cells(i, c))) = 0 Then
改为
If Application.WorksheetFunction.CountIf(Range(myr.Cells(i, 1), myr.Cells(i, c)), "填写要删除数据") = c Then
如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！
