GBKEE

¦^´_ 10# oiggu

1. Sub Ex()
   
2.     Dim D As Range, R As Range, M$
   
3.     Set D = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("date")
   
5.         For Each R In .Range("b2", .Cells(.[a1].End(xlDown).Row, .[a1].End(xlToRight).Column))
   
6.             M = .Cells(R.Row, 1) & .Cells(1, R.Column)
   
7.             D(M) = D(M) + R
   
8.         Next
   
9.     End With
   
10.     With Sheets("A")
    
11.         For Each R In .Range("b3", .Cells(.[a3].End(xlDown).Row, .[a1].End(xlToRight).Column))
    
12.             M = .Cells(R.Row, 1) & .Cells(1, R.Column)
    
13.             R = D(M)
    
14.         Next
    
15.     End With
    
16. End Sub

½Æ»s¥N½X