条件范围删除

sj15627581616

如图，A列是数据序列，数据每5行保留B列数据中的最大行剩余4行删除，琢磨半天也没想出来怎么操作，利用函数LOOKUP好像也能找出逻辑，但完整的逻辑没能理出来，请老师帮忙理下逻辑，这个删除逻辑该怎么建立

Yalishanda30

这样子的？？？附件供参考

liulang0808

Sub 按钮1_Click()

    Application.ScreenUpdating = False
    r = 0
    arr = [a2].Resize(Cells(Rows.Count, 1).End(3).Row - 1, 2)
    For j = 1 To UBound(arr) Step 5
        r = r + 1
        arr(r, 1) = arr(j, 1)
        arr(r, 2) = arr(j, 2)
        For i = j + 1 To WorksheetFunction.Min(UBound(arr), j + 4)
            If Val(arr(r, 2)) < Val(arr(i, 2)) Then
                arr(r, 1) = arr(i, 1)
                arr(r, 2) = arr(i, 2)
            End If
        Next i
    Next j
    [h2].Resize(r, 2) = arr
    Application.ScreenUpdating = True
End Sub

sj15627581616

Yalishanda30 发表于 2019-12-16 21:05
这样子的？？？附件供参考

是这样了，能请教下，代码里面并没有看到Delete删除这一操作，代码结构能讲解一下吗？我只想到Delete对整行进行删除这一操作

sj15627581616

Yalishanda30 发表于 2019-12-16 21:05
这样子的？？？附件供参考

噢，突然想起，这是读取出来的数据，并不需要删除，想思路想到短路了

sj15627581616

我也是傻的可以，非要执着在原数据上进行删除操作，重新读一遍就好了的事

Yalishanda30

sj15627581616 发表于 2019-12-16 21:25
我也是傻的可以，非要执着在原数据上进行删除操作，重新读一遍就好了的事

不要轻易操作单元格，数据多了非常卡，如果要清除源数据可以在重写数据的时候把原区域清空后再写入

sj15627581616

Yalishanda30 发表于 2019-12-16 21:28
不要轻易操作单元格，数据多了非常卡，如果要清除源数据可以在重写数据的时候把原区域清空后再写入

强迫症要老命，习惯了一步到位，玩函数带来的坏习惯

Stone_00x

B列是文本格式,我说怎么排序老是不对....

Sub tt()
    arr = [a2].CurrentRegion
    Set dic = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        If Not dic.exists(arr(i, 1)) Then
            dic(arr(i, 1)) = arr(i, 2)
        Else
            If dic(arr(i, 1)) < arr(i, 2) Then: dic(arr(i, 1)) = arr(i, 2)
        End If
    Next
    [d2].Resize(dic.Count, 2) = Application.Transpose(Array(dic.keys, dic.items))
    Set dic = Nothing
End Sub