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

[µo°Ý] ¸õ®æ²Ö¥[

[µo°Ý] ¸õ®æ²Ö¥[

Test 1-¸õ®æ²Ö¥[.rar (4.19 KB)
·íA1¶ñ¤J¬Y¼Æ¦r¡AµM«á¨C¶¡¹j5¦C·|¦Û°Ê²Ö¥[10
¨Ò¦p¡GA1=100¡AµM«áA6=110¡AA11=120¡AA16=130¡AA21=140¡AA26=150¡A----¨ä¾lÃþ±À----¤U©Ô¨ìA101¡C
½Ð°Ý¡G¨ç¼Æ¤½¦¡­n«ç»ò½s¿è¡H
ÁÂÁ¡I

¥»©«³Ì«á¥Ñ johnny1680 ©ó 2021-11-7 19:39 ½s¿è

¦^´_ 3# samwang
¦^´_ 4# hcm19522

·PÁ¤G¦ì¤j¤jªºÀ°¦£!

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://blog.xuite.net/hcm19522/twblog
¤w¦¬¶°8500½g EXCEL¨ç¼Æ

TOP

¦^´_ 1# johnny1680

²¤Æ#2¡AÁÂÁÂ
Sub test2()
Dim Arr, xD
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range("a1:a101")
For i = 6 To UBound(Arr) Step 5
    If xD.Exists(Arr(1, 1)) Then
        Arr(i, 1) = xD(Arr(1, 1)) + 10
        xD(Arr(1, 1)) = Arr(i, 1)
    Else
        Arr(i, 1) = Arr(1, 1) + 10
        xD(Arr(1, 1)) = Arr(i, 1)
    End If
Next
Range("a1").Resize(UBound(Arr), 1) = Arr
End Sub

TOP

¦^´_ 1# johnny1680


Sub test()
Dim R As Range, xD, n%
Set xD = CreateObject("Scripting.Dictionary")
For Each R In Range("a2:a101")
    n = n + 1
    If n = 5 Then
        If xD.exists(Cells(1, 1).Value) Then
        R.Value = xD(Cells(1, 1).Value) + 10
        xD(Cells(1, 1).Value) = R: n = 0
        Else
        R.Value = Cells(1, 1) + 10
        xD(Cells(1, 1).Value) = R: n = 0
        End If
    End If
Next
End Sub

TOP

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