Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
您好,我的excel工作表中有几块空白行,为了删除它们,我使用了这段代码,但它跳过了中间的空白行_Excel_Vba - Fatal编程技术网

您好,我的excel工作表中有几块空白行,为了删除它们,我使用了这段代码,但它跳过了中间的空白行

您好,我的excel工作表中有几块空白行,为了删除它们,我使用了这段代码,但它跳过了中间的空白行,excel,vba,Excel,Vba,这是我使用过的代码,但它跳过了空白行。我有一个关于反向循环的想法来避免这种情况,但我自己还没有这样做。请帮帮我,我是excel的新手 谢谢你使用这个: For n = 1 To 99 If IsEmpty(Cells(n, 1)) Then Cells(n, 1).EntireRow.Delete End If Next n 相关文件可能重复: Sub ChkDis() Dim rng As Range Set rng = Sheet1.Range("B1:

这是我使用过的代码,但它跳过了空白行。我有一个关于反向循环的想法来避免这种情况,但我自己还没有这样做。请帮帮我,我是excel的新手

谢谢你使用这个:

For n = 1 To 99
    If IsEmpty(Cells(n, 1)) Then
        Cells(n, 1).EntireRow.Delete
    End If
Next n
相关文件可能重复:
Sub ChkDis()

Dim rng As Range

Set rng = Sheet1.Range("B1:B99")
rng.SpecialCells(xlCellTypeBlanks).Cells.EntireRow.Delete

End Sub