ikboy

1. Sub zz()
   
2. Dim a, da As Date, dz As Date, dx As Date, n&, s$
   
3. Dim d As Object, m!
   
4. Set d = CreateObject("scripting.dictionary")
   
5. a = Sheets(1).[a1].CurrentRegion.Value
   
6. With Sheets(2)
   
7.     da = .[l2].Value: dz = .[l3].Value
   
8.     For i = 2 To UBound(a)
   
9.         dx = a(i, 7)
   
10.         If dx >= da And dx <= dz Then
    
11.             m = m + a(i, 4)
    
12.             n = n + 1
    
13.             s = a(i, 5) & "(" & a(i, 6)
    
14.             d(s) = d(s) + a(i, 4)
    
15.             For j = 1 To 8
    
16.                 a(n, j) = a(i, j + 1)
    
17.             Next
    
18.         End If
    
19.     Next
    
20.     .[a1].CurrentRegion.Offset(1).Clear
    
21.     .[a2].Resize(n, 8) = a
    
22.     .[a2].Resize(n, 8).Borders.Value = 1
    
23.     .Cells(n + 2, 2).Resize(1, 2) = Array("Total", m)
    
24.     For Each k In d.keys
    
25.         n = n + 1
    
26.         .Cells(n + 1, "d") = k & d(k) & "¥ó)"
    
27.     Next
    
28. End With
    
29. End Sub

½Æ»s¥N½X