去除A列同一学校中D列的重复项并保留一个值

quqiyuan

wangmin111 发表于 2024-12-24 14:06
老师，如果最后还想显示一共删除行的哈，代码该怎么调整呢

quqiyuan

代码如下。。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet, rng As Range
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("蔬菜水果")
    arr = sht.[a1].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        s = arr(i, 1) & arr(i, 4)
        If Not d.exists(s) Then
            d(s) = i
        Else
            If rng Is Nothing Then
                Set rng = sht.Rows(i)
                xx = i
            Else
                Set rng = Union(rng, sht.Rows(i))
                xx = xx & "," & i
            End If
        End If
    Next
    rng.Delete
    Set d = Nothing
    MsgBox "删除的行有：" & xx & vbCrLf & "共删除：" & UBound(Split(xx, ",")) + 1 & " 行。。"
End Sub

wangmin111

quqiyuan 发表于 2024-12-24 14:58
代码如下。。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet, rng As Range

非常感谢