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

¿ù»~438 ª«¥ó¤£¤ä´©¦¹ÄÝ©Ê Sheets(1)

¿ù»~438 ª«¥ó¤£¤ä´©¦¹ÄÝ©Ê Sheets(1)

·s¼W Microsoft Excel ¤u§@ªí.rar (17.87 KB)

Åã¥Ü¿ù»~°T®§438
ª«¥ó¤£¤ä´©¦¹ÄÝ©Ê

«ùÄòºô¸ô¤W´M§äµª®×¤¤¡A¦pªG¦³«e½úª¾¹D¡AÁٽЧiª¾¡A·PÁÂ

¦^´_ 1# av8d

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xD, Brr, T$, i&
Set xD = CreateObject("Scripting.Dictionary")
With Range([f1], [b65536].End(xlUp))
    Brr = .Value
    .Sort Key1:=.Item(1), Order1:=1, Header:=1
    Arr = .Value: .Value = Brr
End With
Arr(1, 5) = "Á`®É¼Æ"
For i = 2 To UBound(Arr)
    T = Arr(i, 1): xD(T) = xD(T) + Arr(i, 4)
Next
For i = 2 To UBound(Arr):  Arr(i, 5) = xD(Arr(i, 1)): Next
[g1].Resize(UBound(Arr), 5) = Arr
End Sub

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2022-11-4 12:18 ½s¿è

¦^´_ 2# samwang

ÁÂÁ«e½ú¡A­ì¨Ó¤]¯à¨Ï¥Î¦r¨å¦p¦¹±j¤j¤S§Ö³tªº¥\¯à¡A§Ú»Ý­n®É¶¡·N·|°}¦C¡A·PÁÂ~

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD