您好,今天芳芳来为大家解答以上的问题。删除空白行中的数据上移一格，删除空白行相信很多小伙伴还不知道,现在让我们一起来看看吧！
1、打开要删除空白行的文档。
2、2、Alt+F11打开VB编辑器，右键新建一个模块。
3、3、新建模块后，输入Sub 删除空行()Dim aa = 1Do While Cells(a, "a") <> "" If Cells(a, "D") = "" Then Rows(a).Select ***.delete Shift:=xlUp Else a = a + 1 End If LoopEnd Sub。
4、4、输入代码后，在工具栏中找到开发工具——宏，点击执行命令。
5、5、找到并执行删除空行的宏，然后点击执行。
6、6、运行完成后，就可以把空白行删除了。
本文就为大家分享到这里，希望小伙伴们会喜欢。
标签：