- ©«¤l
- 2808
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2864
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-5-19
|
Sub TEST_A1()
Dim Arr, xD, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([N90122Áʳf©ú²Ó¶K¤W!J1], [N90122Áʳf©ú²Ó¶K¤W!A65536].End(xlUp))
For i = 2 To UBound(Arr)
If Left(Arr(i, 1), 1) <> "1" Then GoTo i01
xD(Arr(i, 3)) = xD(Arr(i, 3)) + Val(Arr(i, 6)) / 10
i01: Next i
Arr = Range([µÒ¬[!B2], [µÒ¬[!A65536].End(xlUp))
For i = 1 To UBound(Arr)
Arr(i, 1) = xD(Arr(i, 1) & Arr(i, 2))
Next i
[µÒ¬[!D2].Resize(UBound(Arr), 1) = Arr
End Sub |
|