GBKEE

¦^´_ 1# tonycho33

1. Option Explicit
   
2. Sub Ex()
   
3.      Dim E, Rng As Range, ®Æ¸¹ As String, ¼Æ¶q As String, ¤é´Á As String
   
4.      With Sheets("fndvfile")
   
5.         ®Æ¸¹ = .Range(.[A2], .[A2].End(xlDown)).Address(1, 1, , 1)
   
6.         ¼Æ¶q = .Range(.[D2], .[D2].End(xlDown)).Address(1, 1, , 1)
   
7.         ¤é´Á = .Range(.[E2], .[E2].End(xlDown)).Address(1, 1, , 1)
   
8.     End With
   
9.     With Sheet1
   
10.         .[c2:n6] = ""
    
11.         For Each E In .[c2:n6]
    
12.             E.Value = Application.Evaluate("=SUMPRODUCT((" & ®Æ¸¹ & "=" & .Cells(E.Row, 2).Address & ")*(" & ¤é´Á & "=" & .Cells(1, E.Column).Address & ")*(" & ¼Æ¶q & "))")
    
13.         Next
    
14.     End With
    
15. End Sub

½Æ»s¥N½X