標題: [發問] 跳格累加 [打印本頁]

---

作者: johnny1680    時間: 2021-10-18 21:45     標題: 跳格累加

[attach]34235[/attach]
當A1填入某數字，然後每間隔5列會自動累加10
例如：A1=100，然後A6=110，A11=120，A16=130，A21=140，A26=150，----其餘類推----下拉到A101。
請問：函數公式要怎麼編輯？
謝謝！

---

作者: samwang    時間: 2021-10-19 11:26

回復 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

---

作者: samwang    時間: 2021-10-19 13:10

回復 1# johnny1680

簡化#2，謝謝
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

---

作者: hcm19522    時間: 2021-10-19 14:46

https://blog.xuite.net/hcm19522/twblog/590079887

---

作者: johnny1680    時間: 2021-11-7 19:36

本帖最後由 johnny1680 於 2021-11-7 19:39 編輯

回復 3# samwang
回復 4# hcm19522

感謝二位大大的幫忙!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)