作者：绿色风
分类：
时间：2022-08-17
浏览：92
楼主
rongjun |
Q：如何删除表格中的所有空行？
A：采用如下代码：
- Sub 删除空行()
- Dim LastRow, i As Long
- Application.ScreenUpdating = False
- LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1
- For i = LastRow To 1 Step -1
- If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete
- Next i
- Application.ScreenUpdating = True
- End Sub
 如何删除表格中的所有空行？.rar
|
2楼
nbwyong |
学习，如果要删除表格中的所有空列，可用以下代码
Sub 删除空列()
Dim LastColumn As Long
Dim r As Long
LastColumn = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count
Application.ScreenUpdating = False
For r = LastColumn To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(r)) = 0 _
Then Columns(r).Delete
Next r
Application.ScreenUpdating = True
End Sub |
3楼
dzczone |
可以先筛选空格然后删除。具体为：筛选出空格，选中，ctrl+g-定位条件-y-确定-删除即可。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一