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

¶×¾ã¸ê®Æ

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

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD