关于excel自动删除空白行的VB的问题。

excel里自动删除空白行的关于VB编程的方法问题~

Dim x, R As Long
With Sheets("sheet1")
For R = 58 To 9 Step -1
If .Cells(R, 3) = "" Then
Rows(R).Delete
End If
Next R
End With

1、打开要删除空白行的文档。


2、Alt+F11打开VB编辑器，右键新建一个模块。


3、新建模块后，输入
Sub 删除空行()
Dim a
a = 1
Do While Cells(a, "a") ""
If Cells(a, "D") = "" Then
Rows(a).Select
Selection.Delete Shift:=xlUp
Else
a = a + 1
End If
Loop
End Sub。


4、输入代码后，在工具栏中找到开发工具——宏，点击执行命令。


5、找到并执行删除空行的宏，然后点击执行。


6、运行完成后，就可以把空白行删除了。

If .Cells(R, 1) = "" Then 中.cells(R,1)改成.cells(R,3)就行了！

再将.Cells(R, 1)中的1改为3

---

关于excel自动删除空白行的VB的问题。视频