页面发送信息01在网易搜寻里输出qq内部空间,找出官方网站步入。 02步入后,若是笔记本电脑发送信息有qq,会自动检测,弹出方便快捷发送信息,点选两个要发送信息的qq。 ......
2023-10-24 130
Excel工作表上面含有大量空白行,如何才能快速的将这些空白行删除?下面举个例子分享一下。
打开Excel表格,选择A、B、C、D共4列。
依次点击【开始】、【排序和筛选】、【筛选】。
在A列的筛选里边只选择“空白”。
同样,B、C、D列筛选里边也都只选择“空白”。
选择已经筛选出来的空白行,单击右键,选择“删除行”。
选择第1行,依次点击【开始】、【排序和筛选】、【筛选】。
Excel表格上面的空白行已经被删除。
点击【开发工具】、【Visual Basic】调出VBA编辑器。
在VBA编辑器上面点击【插入】、【模块】。
模块的代码框里边输入以下VBA程序代码,再按【F5】键运行程序。
Sub Delete_Rows()
Dim i1, i2, i3
On Error Resume Next '忽略运行过程中可能出现的错误
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1
For i1 = 2 To 10000 '从第2行到10000行
i2 = Application.WorksheetFunction.CountIf(mysheet1.Range(mysheet1.Cells(i1 - i3, 1), _
mysheet1.Cells(i1 - i3, 4)), "")
'统计同一行上面A列到D列空白单元格数量
If i2 = 4 Then '如果空白单元格数是4个,则
mysheet1.Rows(i1 - i3).Delete Shift:=xlUp '删除该行
i3 = i3 1 '累计删除空白行数
End If
Next
End Sub
回到Excel工作表界面,空白行已经被删除。
方法一:借助筛选功能删除空白行
1、选择含有数据的列。
2、点击【开始】、【排序和筛选】、【筛选】。
3、在所有筛选列里边均只选“空白”。
4、选择已经筛选出来的空白行,单击右键,选择“删除行”。
5、选择第1行,点击【开始】、【排序和筛选】、【筛选】。
6、筛选功能解除,Excel表格空白行删除完成。
方法二:使用VBA程序删除空白行
1、点击【开发工具】、【Visual Basic】。
2、在VBA编辑器上面点击【插入】、【模块】。
3、输入VBA程序代码,之后按【F5】键运行程序。
4、Excel表格空白行删除完成。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!
相关文章
页面发送信息01在网易搜寻里输出qq内部空间,找出官方网站步入。 02步入后,若是笔记本电脑发送信息有qq,会自动检测,弹出方便快捷发送信息,点选两个要发送信息的qq。 ......
2023-10-24 130
很多讨厌ACG的小伙伴们大体上单厢采用P站,不过有天数是P站会难以恒定登入,这时如果什么样是好呢?接下去他们一起来看一看如果什么样登入Pixiv站操作方式01具体来说他们须......
2023-10-24 117
随著北欧国家中国经济和信息技术的产业发展,天数就显得至关重要以是当他们在QQ应用程序里看某一页面时我甘心优先选择听而并非去看那你晓得什么样才能在QQ应用程序迈入......
2023-10-24 113