[µo°Ý] Dictionary¦p¦ó¥[Á`?

yangjie

½Ð±Ð¤j¤j
AÄæ   BÄæ      CÄæ       DÄæ
           2                       12
           3                       15
           3                       1
           1                       56
           3   
           3                       14
           2                       10
¥HBÄ欰keys   §@DÄæ(¦³¥i¯àªÅ¥Õ)¥[Á`
     Dim D As Object,a
     Dim R As Range
    Set D = CreateObject("Scripting.Dictionary")
    With Sheets("°ò¥»¸ê®Æ")
             For Each R In .Range(.Cells(2, 2), .Cells(65536, 2).End(xlUp)).Rows
                    D(R) = ""(¦p¦ó¥[Á`???)
            Next
            a=d.keys  
            .cells(2,7)=a(0)
            .cells(2,8)=¥[Á`
            .cells(3,7)=a(1)
            .cells(3,8)=¥[Á`
            .....................
            ....................
    End With
    ·q½Ð«ü¾É

yangjie

¦^´_ 1# yangjie
¸Õ¤F¦h¹M¡AÁÙ¬OTry¦¨¥\¤F
Dim d As Object, a, b
    Set d = CreateObject("Scripting.Dictionary")
    wb1.Activate
    With Sheets("°ò¥»¸ê®Æ")
        row1 = .Cells(65536, 7).End(xlUp).Row
        If row1 = 1 Then Exit Sub
        For i = 2 To .Cells(65536, 7).End(xlUp).Row
            If .Cells(i, 7) <> "" Then
                d(.Cells(i, 7).Value) = d(.Cells(i, 7).Value) + .Cells(i, 9).Value
            End If
        Next
    End With
    a = d.Keys
    b = d.Items
    If d.count > 0 Then
        For i = 0 To d.count - 1
            If CLng(a(i)) > 0 And CLng(a(i)) <= 10 Then
                Controls("TextBox" & i + 1) = b(i)
            End If
        Next
    End If