[已解决]删除表格中数字大于等于6的行

ymq123

请编写代码
删除工作表2中每行数字大于等于6个的行（红色字是要删除的行），工作表3内是删除结果。

最佳答案

月排行榜 / 总排行榜

fffox

2015-1-4 15:32

Sub test()
    Dim arr, brr()
    Dim i&, j&, k%, m&

    'arr = Range("a1").CurrentRegion    '
    arr = Sheets(2).Range("a1:j11").Value   '数据源区域按实际自行修改
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))

    For i = 1 To UBound(arr)
        k = 0
        For j = 1 To UBound(arr, 2)
            If arr(i, j) <> "" Then k = k + 1
            If k >= 6 Then Exit For
        Next
        If k < 6 Then
            m = m + 1
            For j = 1 To UBound(arr, 2)
                brr(m, j) = arr(i, j)
            Next
        End If
    Next

    With Sheets(3)
        .UsedRange.Clear
        If m > 0 Then .Range("a1").Resize(m, UBound(arr, 2)) = brr
    End With

End Sub

跳转到最佳答案楼层

fffox

Sub test()
    Dim arr, brr()
    Dim i&, j&, k%, m&

    'arr = Range("a1").CurrentRegion    '
    arr = Sheets(2).Range("a1:j11").Value   '数据源区域按实际自行修改
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))

    For i = 1 To UBound(arr)
        k = 0
        For j = 1 To UBound(arr, 2)
            If arr(i, j) <> "" Then k = k + 1
            If k >= 6 Then Exit For
        Next
        If k < 6 Then
            m = m + 1
            For j = 1 To UBound(arr, 2)
                brr(m, j) = arr(i, j)
            Next
        End If
    Next

    With Sheets(3)
        .UsedRange.Clear
        If m > 0 Then .Range("a1").Resize(m, UBound(arr, 2)) = brr
    End With

End Sub

hunter4162003

一定要用代码吗？自己又不会，加个辅助列，统计一下每行数字个数，排序，大于6的删除得了