[已解决]求助,修改宏代码

新会甜橙

删除f列√和删除H含有"销户"或"无法联系"的意思所在行,改a列为c列为判断,有时a列无数据,f列和h列是两个条件,符合其中1个条件的都删除
Sub yy()
    Dim arr As Variant
    Dim i As Integer, n As Integer
    Dim rng As Range
    Dim brr()
    Dim sh As Worksheet
    For Each sh In Sheets
        Set rng = sh.Range("a4:h" & sh.[a65536].End(3).Row)
        arr = rng.Value
        ReDim brr(1 To UBound(arr), 1 To 8)
        For i = 1 To UBound(arr)
            If arr(i, 6) <> "√" And arr(i, 8) <> "无法联系" And Not arr(i, 8) Like "*销户*" Then
                n = n + 1
                For j = 1 To 8
                    brr(n, j) = arr(i, j)
                Next
            End If
        Next
        If n > 0 Then rng.ClearContents: sh.[a4].Resize(n, 8).Value = brr: n = 0
    Next
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2012-10-8 08:24

Sub yy()
    Dim arr As Variant
    Dim i As Integer, n As Integer
    Dim rng As Range
    Dim brr()
    Dim sh As Worksheet
    For Each sh In Sheets
        Set rng = sh.Range("a4:h" & sh.UsedRange.Rows.Count)
        arr = rng.Value
        ReDim brr(1 To UBound(arr), 1 To 8)
        For i = 1 To UBound(arr)
            If arr(i, 6) <> "√" And arr(i, 8) <> "无法联系" And Not arr(i, 8) Like "*销户*" Then
                n = n + 1
                For j = 1 To 8
                    brr(n, j) = arr(i, j)
                Next
            End If
        Next
        If n > 0 Then rng.ClearContents: sh.[a4].Resize(n, 8).Value = brr: n = 0
    Next
End Sub

跳转到最佳答案楼层

zjdh

Sub yy()
    Dim arr As Variant
    Dim i As Integer, n As Integer
    Dim rng As Range
    Dim brr()
    Dim sh As Worksheet
    For Each sh In Sheets
        Set rng = sh.Range("a4:h" & sh.UsedRange.Rows.Count)
        arr = rng.Value
        ReDim brr(1 To UBound(arr), 1 To 8)
        For i = 1 To UBound(arr)
            If arr(i, 6) <> "√" And arr(i, 8) <> "无法联系" And Not arr(i, 8) Like "*销户*" Then
                n = n + 1
                For j = 1 To 8
                    brr(n, j) = arr(i, j)
                Next
            End If
        Next
        If n > 0 Then rng.ClearContents: sh.[a4].Resize(n, 8).Value = brr: n = 0
    Next
End Sub