Kubi

¦^´_ 1# david1216jp
½Ð°Ñ¦Ò¡C

1. Sub test()
   
2.     Dim arr
   
3.     Dim d As Object
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     [A1,L1].Value = ""
   
6.     arr = [B2].CurrentRegion
   
7.     For i = 2 To UBound(arr, 2)
   
8.         For j = 2 To UBound(arr)
   
9.             d(arr(1, i) & arr(j, 1)) = d(arr(1, i) & arr(j, 1)) + arr(j, i)
   
10.         Next j
    
11.     Next i
    
12.     arr = [M2].CurrentRegion
    
13.     For i = 2 To UBound(arr, 2)
    
14.         For j = 2 To UBound(arr)
    
15.             If d(arr(1, i) & arr(j, 1)) = "" Then
    
16.                 arr(j, i) = 0
    
17.             Else
    
18.                 arr(j, i) = d(arr(1, i) & arr(j, 1))
    
19.             End If
    
20.         Next j
    
21.     Next i
    
22.     [M2].CurrentRegion = arr
    
23.     [A1,L1].Value = "Á`ªí"
    
24.     Set d = Nothing
    
25.     arr = ""
    
26. End Sub

½Æ»s¥N½X