根据有数据2列保留行？

chygy

想根据涂黄这有数据的列，保留对应行，如何操作简单点？这2列没数据的都删除掉，数据行很多

mjm04

FILTER-函数  的活


附件呢？

chygy

mjm04 发表于 2025-3-26 16:57
FILTER-函数  的活

版本比较老，没这个函数

quqiyuan

删除，VBA试试看，仅供参考。。

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    t = Timer
    Dim wb As Workbook, sht As Worksheet, rng As Range
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    arr = sht.[a1].CurrentRegion
    For i = 2 To UBound(arr)
        If arr(i, 3) = Empty And arr(i, 4) = Empty Then
            If rng Is Nothing Then Set rng = sht.Rows(i) Else Set rng = Union(rng, sht.Rows(i))
        End If
    Next
    rng.Delete  '会删除整行，请留意
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    MsgBox "共耗时：" & Format(Timer - t, "0.0000") & " 秒！！！", 64
End Sub

mjm04

=FILTER(A1:D100,((C1:C100<>"")+(D1:D100<>"")),"")

Excel_muke

1. =IF(INDIRECT(CHAR(64+COLUMN(A1))&SMALL(IF($C:$C&$D:$D<>"",ROW($C:$C),""),ROW($A1)))=0,"",INDIRECT(CHAR(64+COLUMN(A1))&SMALL(IF($C:$C&$D:$D<>"",ROW($C:$C),""),ROW($A1))))

复制代码

chygy

大佬们都很厉害，我想了个笨法，用or函数判断2列是否为空，用if函数根据or函数结果，在辅助列写1和0，再查找1，然后删除

quqiyuan

chygy 发表于 2025-3-26 17:47
大佬们都很厉害，我想了个笨法，用or函数判断2列是否为空，用if函数根据or函数结果，在辅助列写1和0，再查 ...

你这个是半自动，VBA就是全自动了。

422566739

quqiyuan 发表于 2025-3-26 18:10
你这个是半自动，VBA就是全自动了。

简单的功能 还是其他操作 简单点