Hsieh

¦^´_ 1# hong912

1. Private Sub CommandButton1_Click()
   
2. Dim m%, n$
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. fs = Application.GetOpenFilename("¿n¤ÀªíExcel Files (*.xls*), *.xls*", , "½Ð¿ï¨ú¿n¤ÀªíÀÉ®×")
   
5. With Workbooks.Open(fs)
   
6. m = InputBox("¿é¤J¤ë¥÷", , 10)
   
7. n = InputBox("¿é¤J½s¸¹", , "A1")
   
8.    With .Sheets(1)
   
9.       For Each a In .Range(.[A2], .[A2].End(xlDown))
   
10.          d(a & a.Offset(, 2)) = d(a & a.Offset(, 2)) + a.Offset(, 6)
    
11.       Next
    
12.    End With
    
13. .Close 0
    
14. End With
    
15. [F2] = d(m & n)
    
16. End Sub

½Æ»s¥N½X