如何利用VB删除要求单元格所在行?

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

请教高手：如何利用VB程序一次性删除备注列中
“请假”和“插班生”所在的行？
谢谢！
详见附件

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：单元格 VB程序 请教高手 插班生 一次性 删除 单元

vba是可以，但比较简单的方法是：用筛选筛出“请假”和“插班生”，删除后，再全选

这样的数据很多，每天都要处理，寻求如何利用VB很快解决

请教高手：如何利用VB程序一次性删除备注1列中
“请假”和“插班生”所在的行以及备注2列中
“复读生”所在的行？
详件附件，谢谢..........

看了你的excel，看你的意思，比较简单的做法（不用vba）是用数据筛选，将备注1和备注2的筛选条件选成“无”即可
为了删除那些看不见的行，你可以先ctrl+a全选你筛选后的数据，然后按快捷键alt+分号；（或者按f5，在“特殊”中选“可见单元格”），这样只选择了可见单元格，按ctrl+c,ctrl+v复制粘贴到别的地方即可

如果你一定要用vba编程，可以再联系我

寻求VB解决的办法

请教高手：如何利用VB程序一次性删除语文中的“0”，备注1列中
“请假”和“插班生”所在的行以及备注2列中
“0.01”所在的行？
详见附件  谢谢！

1# rdlt6899

Sub mydelete()
For i = 26 To 2 Step -1
If Cells(i, 4) = 0 Or Cells(i, 6) = "请假" Or Cells(i, 6) = "插班生" Or Cells(i, 7) = 0.01 Then
Rows(i).Delete
End If
Next i
End Sub

学习学习。。。。。。。。

Option Base 1
Sub DelRow()
    Dim firstaddress As String, rng As Range, tmp As Range, Myarr As Variant
    Myarr = Array("请假", "插班生", "复读生")
    With Range("E:F")    '指定信息所在的区域，可以调整为指定的列
        For i = 1 To UBound(Myarr)
            Set tmp = Nothing
            Set tmp = .Find(Myarr(i))    '查找第一个符合条件的单元格
            If Not tmp Is Nothing Then    '如果存在符合条件的数据行
                firstaddress = tmp.Address    '保存第一个符合条件单元格的地址
                Do
                    If rng Is Nothing Then    '如果存放查询结果的变量未使用过
                        Set rng = tmp    '将第一个符合条件的单元格赋值给变量
                    Else
                        Set rng = Union(rng, tmp)    '将所有符合条件的单元格保存在同一个变量中
                    End If
                    Set tmp = .FindNext(tmp)    '继续查找下一个符合条件的单元格
                Loop While tmp.Address <> firstaddress    '判断是否绕回，以确定是否完成所有数据的查询
                'rng.EntireRow.Select
                rng.EntireRow.Delete    '删除符合条件的数据行
            End If
        Next
    End With
End Sub