Hsieh

¦^´_ 3# myleoyes

1. Sub nn()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. d("¦WºÙ") = ""
   
4. With Range("M79").Comment
   
5. mystr = .Text
   
6. ar = Split(mystr, Chr(10))
   
7. For Each a In ar
   
8.    b = Split(a, " ")
   
9.    x = b(0): y = b(1): z = b(2)
   
10.    s = d.Count
    
11.    If IsEmpty(d(y)) Then ActiveSheet.Cells(3 + s, "CR").Name = y
    
12.    d(y) = d(y) + Val(z)
    
13. Next
    
14. End With
    
15. [CR3].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
16. 10
    
17. asw = Application.InputBox("¿ï¨ú¦WºÙ", " ½Ð¿ï¨úCRÄæ¦WºÙ", "¸É§UÃB", Type:=8)
    
18. If d.exists(asw) = False Then GoTo 10
    
19. [CR2] = asw: [CR1] = d(asw)
    
20. End Sub

½Æ»s¥N½X