¿ù»~438 ª«¥ó¤£¤ä´©¦¹ÄÝ©Ê Sheets(1)
- ©«¤l
- 703
- ¥DÃD
- 276
- ºëµØ
- 0
- ¿n¤À
- 1005
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-5-29
|
¿ù»~438 ª«¥ó¤£¤ä´©¦¹ÄÝ©Ê Sheets(1)
|
|
|
|
|
|
- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2024-10-30
|
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 703
- ¥DÃD
- 276
- ºëµØ
- 0
- ¿n¤À
- 1005
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-5-29
|
¥»©«³Ì«á¥Ñ av8d ©ó 2022-11-4 12:18 ½s¿è
¦^´_ 2# samwang
ÁÂÁ«e½ú¡Aì¨Ó¤]¯à¨Ï¥Î¦r¨å¦p¦¹±j¤j¤S§Ö³tªº¥\¯à¡A§Ú»Ýn®É¶¡·N·|°}¦C¡A·PÁÂ~ |
|
|
|
|
|
|