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

[µo°Ý] ½Ð°Ý¤@¤U¨ç¼Æªºvba

¸Õ¸Õ

Sub AAA()
Dim M As Long
Sheets("¤u§@ªí1").Select
Range("A1").Select
Sheets("¤u§@ªí1").[D265536].ClearContents

For M = 2 To Sheets("¤u§@ªí1").[A65536].End(xlUp).Row

Sheets("¤u§@ªí1").Cells(M, 4) = Application.SumIf(Sheets("¤u§@ªí2").Range("B:B"), Sheets("¤u§@ªí1").Cells(M, 1), Sheets("¤u§@ªí2").Range("E:E"))

Next
End Sub
ù

TOP

DEAR SIR
¥Î²[¼Æ§Y¥i§a.¦p¤U c2¤½¦¡  ¾l¥H¦¹Ãþ±À

=SUMPRODUCT((¤u§@ªí2!$B$2B$65536=A2)*(¤u§@ªí2!$C$2C$65536=C1),¤u§@ªí2!$E$2E$65536)
ù

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD