EXCEL VBA实现重复字段出现次数并列显示

• 移动开发

EXCEL VBA实现重复字段出现次数并列显示

在这里插入图片描述

Sub dotest()   '
    Dim arr, d
    Application.ScreenUpdating = False
    Set d = CreateObject("Scripting.Dictionary")
    With Sheets("Sheet2")
        r = .Cells(.Rows.Count, "a").End(xlUp).Row
        arr = .[a1].Resize(r, 1)
    End With
    For i = 2 To UBound(arr)
        s = arr(i, 1)
        d(s) = d(s) + 1
    Next
    With Sheets("Sheet1")
        r = .Cells(.Rows.Count, "a").End(xlUp).Row
        arr = .[a1].Resize(r, 2)
        For i = 2 To UBound(arr)
            s = arr(i, 1)
            If d.exists(s) Then
                If d(s) > 1 Then
                    arr(i, 2) = d(s)
                Else
                    arr(i, 2) = ""
                End If
            End If
        Next
        .[a1].Resize(r, 2) = arr
    End With
    Set d = Nothing
    Application.ScreenUpdating = True
    MsgBox "OK！"
End Sub

本文来自网络，不代表协通编程立场，如若转载，请注明出处：https://www.net2asp.com/baf573d2b2.html

赞 (0)
« 上一篇 1天前
下一篇 » 1天前

相关推荐