Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.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 删除列A或B中的单元格为空的行_Excel_Vba - Fatal编程技术网

Excel 删除列A或B中的单元格为空的行

Excel 删除列A或B中的单元格为空的行,excel,vba,Excel,Vba,我这行代码有点故障。我打算让这段代码循环并删除A列中的单元格或B列中的单元格为空的行。。这几行包含A列中的客户机名称和B列中的客户机号码。现在,当我执行脚本时,第一行可以很好地删除,但从下一行应该删除的内容开始,电话号码开始混淆 请,我只需要把参数写在这样一种方式中,它根据条件和delete获取所有为真的行,或者任何可能工作的逻辑,而不会混淆数据。谢谢 注意:如果使用下面的代码进行更正或升级,我将不胜感激。多谢各位 Dim rngRange As Range Dim rngUnion A

我这行代码有点故障。我打算让这段代码循环并删除A列中的单元格或B列中的单元格为空的行。。这几行包含A列中的客户机名称和B列中的客户机号码。现在,当我执行脚本时,第一行可以很好地删除,但从下一行应该删除的内容开始,电话号码开始混淆

请,我只需要把参数写在这样一种方式中,它根据条件和delete获取所有为真的行,或者任何可能工作的逻辑,而不会混淆数据。谢谢

注意:如果使用下面的代码进行更正或升级,我将不胜感激。多谢各位

Dim rngRange As Range
    Dim rngUnion As Range
    Dim rngCEll As Range
    Set rngRange = Sheet2.UsedRange.Offset(7)
    For Each rngCEll In rngRange.Columns(1).Cells
        If rngCEll.Value = "" Or rngCEll.Offset(, 1).Value = "" Then
            If rngUnion Is Nothing Then
                Set rngUnion = rngCEll
            Else
                Set rngUnion = Union(rngUnion, rngCEll)
            End If
            End If
    Next rngCEll
    If Not rngUnion Is Nothing Then
        rngUnion.EntireRow.Delete
    End If

不需要循环。使用自动过滤器。我过去回答过许多类似的问题。请做一个搜索就是这样的链接OK,谢谢。。让我来试试如果你使用循环,删除行/列,总是反向工作,你可以把代码写进你的问题中,这会比评论部分漂亮得多!