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、...

按ALT +F11打开vba编辑器 复制如下代码 Sub s()Dim i As Integer, a As Integera = Sheet1.Range("a65536").End(xlUp).Rowi = 1DoIf Sheet1.Cells(i, 5) = "" Or Sheet1.Cells(i, 5) = 0 ThenSheet1.Rows(i).Deletea = a - 1Elsei = i + 1End IfLoop While i < a ...

if len(trim(cells(i,1)))=0 then rows(i).delete'按a列判断，自己修改 next

ws.Activatews.Cells(2, 4).Select ‘这个就是D2单元格，选中 Selection.EntireRow.Delete '选中D2所在的行，删除 wb.Save wb.Close (True)xapp.Quit Set ws = Nothing Set wb = Nothing

只能通过sheet.row(x).delete这个方法删除一行！速度慢可能是你的代码计算问题。sheet.rang(x,y).delete这个方法不是删除一行而是删除一个单元格。

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

看你的代码，你是以i为循环变量，那么你的循环内部应该以控制i来展开。对于删除行的代码，我们通常从下往上来运行。所以你像下面这样来改试试看：i = 2 * v + 3DO If ... THen xlsWs.Rows(i).Delete End if i = i - 1 Loop While i > 4 ...

Sub 删除B列空行() For i = [b65536].End(3).Row To 1 Step -1 If Cells(i, 2) = "" Then Range("b" & i).EntireRow.Delete NextEnd Sub

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

Sub Macro1() Rows("3:3").Delete Shift:=xlUp '删除第3行,下面上移 Columns("C:C").Delete Shift:=xlToLeft '删除C列,右边左移End Sub