VBA字典代码

独孤逸盛

Set d(s) = CreateObject("scripting.dictionary")，在写代码中，后面那个s代表什么意思

shiruiqiang

部分数组，可以一个或多个字段.
如s=arr(x,1)
d(s)=d(arr(x,1))

独孤逸盛

Sub ykcbf()
    Dim arr, brr, d
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set ws = ThisWorkbook
    Set sh = ws.Sheets("Sheet1")
    bt = 1: col = 3
    For Each sht In Sheets
        If sht.Name <> sh.Name Then sht.Delete
    Next
    arr = sh.UsedRange
    For i = bt + 1 To UBound(arr)
        s = arr(i, col)
        If Not d.Exists(s) Then
            Set d(s) = CreateObject("scripting.dictionary")
        End If
        d(s)(i) = Application.Index(arr, i)
    Next i
    For Each k In d.Keys
        sh.Copy after:=Sheets(Sheets.Count)
        Set sht = Sheets(Sheets.Count)
        m = d(k).Count
        With sht
            .Name = k
            .UsedRange.Offset(m + bt).Clear
            .DrawingObjects.Delete
            .Cells(bt + 1, 1).Resize(m, UBound(arr, 2)) = Application.Rept(d(k).items, 1)
            Columns(3).NumberFormatLocal = "0_);[红色](0)"
        End With
    Next k
    sh.Activate
    Set d = Nothing
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

ssfx1982

这是字典嵌套的用法。以变量s作为大字典d的KEY值，在d内再新建一批小字典，小字典的名称就叫d(s)。理论上还可以继续套上小小字典，小小小字典……，嵌套个无数层，只要你头脑不晕。