ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

½Ð°Ý±NSUMPRODUCT¥\¯àÂà´«¦¨vbaªº°ÝÃD

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD