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

sumifs Âন vba »yªk

¦^´_ 20# samwang
Dear samwang,
±z¦n¡I±z©ÒªþªºÀÉ®×´ú¸Õ¥¿±`¡C§Ú§ï¤F±zªºVBA¦Ü§ÚªºEXCEL¤W¡A¦³°ÝÃD¡Aµe­±¦p¤U

¬õ¦r¬O§Ú§ï¹Lªº
----------------------------------------------------------------------
Sub test22()
Dim Arr, Brr, xD, i&, T$
Set xD = CreateObject("Scripting.Dictionary")
Tm = Timer
Arr = [ú®w¶q!g1].CurrentRegion
For i = 2 To UBound(Arr)
    T = Arr(i, 1)
    xD(T) = Val(xD(T)) + Val(Arr(i, 13))
Next
With Sheets("Analysis")
    Brr = .Range(.[a1], .[a65536].End(3))
    For i = 1 To UBound(Brr)
        Brr(i, 1) = xD(Arr(i, 1) & "")
    Next
    .[g1].Resize(UBound(Brr)) = Brr
End With
MsgBox Timer - Tm
End Sub
----------------------------------------------------------------------

001.jpg
2021-12-8 22:03


002.jpg
2021-12-8 22:03
Just do it.

TOP

¦^´_ 20# samwang
Dear samwang,
¦­¤W¦n¡A¥i¥HÀ°§Ú¬Ý¤@¤Uªþ¥[Àɮ׶ܡH
§Ú¦³¹ê»Ú¨Ì¾Ú»Ý¨D¡A½Õ¾ã¤FexcelÄæ¦ì¦ì¸m¡A¥H¤Î­×§ï¹L±zªºVBA
¥i¬O¦b¤u§@ªí"Analysis"¤ºªºHÄæ¦ì«o¬O±a¥XªÅ¥Õ
¥i¥HÀ°§Ú¬Ý¤º®e­þ¸Ì¦³»~¶Ü¡H
·P®¦¡I


    1111.rar (21.77 KB)
Just do it.

TOP

¦^´_ 22# jsc0518

Arr-->Brr
Brr(i, 1) = xD(Brr(i, 1) & "")

TOP

¦^´_ 23# samwang
Dear samwang,
OK¡A¥i¥H¥Î¡C¦b»P±z½Ð±Ð¤@¤U¡A°õ¦æ«áH1Äæ¦ìªº"VBA"³£·|Åܦ¨ªÅ¥Õ¡C
¬O§_¥i¥H­×­q¡H

Noname.jpg
2021-12-10 15:04


Sumif-VBA-V2-ok-¥i¥Î.rar (21.67 KB)
Just do it.

TOP

¦^´_  samwang
Dear samwang,
OK¡A¥i¥H¥Î¡C¦b»P±z½Ð±Ð¤@¤U¡A°õ¦æ«áH1Äæ¦ìªº"VBA"³£·|Åܦ¨ªÅ¥Õ¡C
¬O§_¥i ...
jsc0518 µoªí©ó 2021-12-10 15:03


   .[h1].Resize(UBound(Brr)) = Brr
    .[h1] = "VBA"
End With

TOP

¦^´_ 25# samwang
Dear samwang,
Thank you so much.·PÁ±zÅo¡I  ^_^
Just do it.

TOP

¥»©«³Ì«á¥Ñ mdr0465 ©ó 2022-4-26 10:31 ½s¿è

¦^´_ 26# samwang


samwang§A¦n
§Ú­É¥Î§Aªº§¹¦¨«~­×§ï¤@¤U, ±NsumifÅܦ¨¾î¦Vªº,²Ä¤@¦¸¹Bºâ¬O¦¨¥\ªº, ¦ý¤£ª¾¬°¦ó·í²Ä¤G¦¸¹Bºâ®É´N·|¥¢±Ñ, ½ÐÀ°¦£¬d¬Ý¨Ã«üÂI§Ú¿ù¦b¨º¨½,




ÁÂÁÂ

Sumif VBA.rar (24.19 KB)

TOP

¦^´_  samwang


samwang§A¦n
§Ú­É¥Î§Aªº§¹¦¨«~­×§ï¤@¤U, ±NsumifÅܦ¨¾î¦Vªº,²Ä¤@¦¸¹Bºâ¬O¦¨¥\ªº, ¦ý ...
mdr0465 µoªí©ó 2022-4-26 10:30


¦^¶ñ¸ê®Æ®É­n¥ýªºµª®×¥ý²M°£¡A§Ú·Q§AÀ³¸Óª¾¹D¦p¦ó°µ¡A¼g±o«Ü¦n¡A¦Û¤v¦b¸Õ¸Õ¬Ý¡AÁÂÁÂ

TOP

¦^´_ 28# samwang

SAMWANG®v¥S,§A¦n

ÁÂÁ§Aªº«ü¾É, §Ú·Q·Q«ç¼Ë¦b¦^¶ñ¸ê®Æ®É¥ýªºµª®×¥ý²M°£,

ÁÂÁ§A­@¤ß±Ð¾É, ÁÂÁÂ

TOP

¦^´_ 29# mdr0465


¥t¥~¡A¸ê®Æ¦^¶ñ®É¤]¦³¿ù¦ì°ÝÃD¡A¦hµ½¥ÎF8´N¥iª¾¹D°ÝÃD¦b­þ¸Ì¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD