[已解决]VBA删除保留字符外的其它行

yjwdjfqb

VBA删除保留字符外的其它行
如图，请老师们帮帮忙，谢谢老师们了！

VBA删除保留字符外的其它行.rar (15.87 KB, 下载次数: 16)

2016-12-15 22:42 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2016-12-16 10:30

用窗体比较好

跳转到最佳答案楼层

望帝春心

非要用VBA吗？直接筛选选中删除行就可以了吧，好像也没那么麻烦吧

yjwdjfqb

望帝春心 发表于 2016-12-16 08:11
非要用VBA吗？直接筛选选中删除行就可以了吧，好像也没那么麻烦吧

版主老师你好，感觉VBA速度快些样！

望帝春心

yjwdjfqb 发表于 2016-12-16 08:18
版主老师你好，感觉VBA速度快些样！

是的，反正写代码的时间也不用你自己付出

zjdh

操作列毫无意义！

zjdh

Sub Test()
    Dim ar, br, cr As Range, W, I, J, ARR
    Application.DisplayAlerts = False
    On Error GoTo 0
    'Set ar = Application.InputBox(prompt:="请选择操作列", Title:="提示", Default:="请选择", Type:=8)
    Set br = Application.InputBox(prompt:="请选择开始单元格", Title:="提示", Default:="请选择", Type:=8)
    Set cr = Application.InputBox(prompt:="请选择需要保留的数据", Title:="提示", Default:="请选择", Type:=8)
    Set D = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    ARR = cr
    For I = 1 To UBound(ARR)
        D(ARR(I, 1)) = ""
    Next
    W = D.KEYS
    For I = Range("A65536").End(3).Row To br.Row Step -1
        For J = 0 To D.Count - 1
            If Cells(I, 2) = W(J) Then Exit For
        Next
        If J = D.Count Then Rows(I).Delete
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub
VBA删除保留字符外的其它行.rar (19.13 KB, 下载次数: 21)

2016-12-16 08:23 上传

点击文件名下载附件

望帝春心

yjwdjfqb 发表于 2016-12-16 08:18
版主老师你好，感觉VBA速度快些样！

如果是我自己弄肯定不写代码，有写代码那个时间，可能已经操作完好几遍了，每天都要重复这样的处理无数次吗？VBA是在大量重复处理数据的时候才有优势吧

yjwdjfqb

zjdh 发表于 2016-12-16 08:23
Sub Test()
    Dim ar, br, cr As Range, W, I, J, ARR
    Application.DisplayAlerts = False

老师你好，提示错误代码13什么意思呢

grf1973

用窗体比较好

zjdh

yjwdjfqb 发表于 2016-12-16 08:54
老师你好，提示错误代码13什么意思呢

说明你没有按提示操作