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

[µo°Ý] for ±_ª¬°j°é ¹Bºâ³t«×¦³ÂI¤[½Ð°Ý¸Ó¦p¦ó§ïµ½

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2020-4-24 10:15 ½s¿è

1800®æ©ñsumif, ­YÁÙ¬O·|¥d, ¥Î¦r¨å¤Îarray¸û§Ö~~
éµÛ¼g~~~~
Sub TEST_01()
Dim Arr, Crr, xD, R&, C&, T$
Set xD = CreateObject("Scripting.Dictionary")
Arr = [¾P³f©ú²Ó!B2:O500]
For R = 1 To UBound(Arr)
    T = Arr(R, 1)
    If T <> "" Then xD(T) = xD(T) + Val(Arr(R, 14))
Next R
Arr = [¾P³fÁ`¼Æ!A1:AM64]
Crr = [¾P³fÁ`¼Æ!J5:AM64]
For R = 5 To UBound(Arr)
For C = 10 To UBound(Arr, 2)
    Crr(R - 4, C - 9) = xD(Arr(1, C) & Arr(R, 1))
Next C
Next R
[¾P³fÁ`¼Æ!J5:AM64] = Crr
End Sub

======================

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD