[已解决]如何用VBA删除指定字段的行

诺然偶然

部门	姓名	费用
一部	张力	100	保留
一部	小陈	200	保留
一部	小风	111	删除
一部	小风	121	删除
一部	小风	132	删除
一部	小风	351	删除
一部	张力	100	保留
二部	小周	161	删除
二部	张力	199	删除
一部	小李	212	保留
						如何把含有小风的行和二部的行删除

最佳答案

月排行榜 / 总排行榜

爱疯

2017-1-13 15:06

Sub test()
    Dim A, i, j, s
    A = Range("a1").CurrentRegion
    s = 1

    For i = 2 To UBound(A)
        If A(i, 2) <> "小风" Then
            s = s + 1
            For j = 1 To UBound(A, 2)
                A(s, j) = A(i, j)
            Next j
        End If
    Next i

    If s > 1 Then
        Sheets(2).Select
        Range("a1").CurrentRegion = ""
        Range("a1").Resize(s, UBound(A, 2)) = A
    End If
End Sub
1.rar (9.02 KB, 下载次数: 5)

2017-1-13 15:06 上传

点击文件名下载附件

跳转到最佳答案楼层

上清宫主

录制宏：
1、筛选---选中行----删除
2、将要删除的关键字替换为=1/0，定位错误值-------删除行
3、利用辅助列，要保留的行填1，要删的行不填，排序，删除
……………………

望帝春心

一定要用VBA吗？

xiangbaoan

Sub test()
    With [a:b]
        .Replace "二部", "", xlWhole
        .Replace "小风", "", xlWhole
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End With
End Sub

诺然偶然

上清宫主 发表于 2017-1-12 22:06
录制宏：
1、筛选---选中行----删除
2、将要删除的关键字替换为=1/0，定位错误值-------删除行

十分感谢答复，现在开始学习VBA所以想看下VBA的代码

诺然偶然

望帝春心 发表于 2017-1-13 08:56
一定要用VBA吗？

十分感谢答复，现在开始学习VBA所以想看下VBA的代码

诺然偶然

xiangbaoan 发表于 2017-1-13 10:02
Sub test()
    With [a:b]
        .Replace "二部", "", xlWhole

非常感谢写这么多代码，还想继续请教，如果字段里面包含二部，比如说“华中区二部”，这样怎么办呢？？

xiangbaoan

诺然偶然 发表于 2017-1-13 12:08
非常感谢写这么多代码，还想继续请教，如果字段里面包含二部，比如说“华中区二部”，这样怎么办呢？？

        .Replace "*二部", "", xlWhole

爱疯

Sub test()
    Dim A, i, j, s
    A = Range("a1").CurrentRegion
    s = 1

    For i = 2 To UBound(A)
        If A(i, 2) <> "小风" Then
            s = s + 1
            For j = 1 To UBound(A, 2)
                A(s, j) = A(i, j)
            Next j
        End If
    Next i

    If s > 1 Then
        Sheets(2).Select
        Range("a1").CurrentRegion = ""
        Range("a1").Resize(s, UBound(A, 2)) = A
    End If
End Sub
1.rar (9.02 KB, 下载次数: 5)

2017-1-13 15:06 上传

点击文件名下载附件

诺然偶然

xiangbaoan 发表于 2017-1-13 13:43
.Replace "*二部", "", xlWhole

好的，非常感谢作答