返回列表 上一主題 發帖

[發問] 跳格累加

[發問] 跳格累加

Test 1-跳格累加.rar (4.19 KB)
當A1填入某數字,然後每間隔5列會自動累加10
例如:A1=100,然後A6=110,A11=120,A16=130,A21=140,A26=150,----其餘類推----下拉到A101
請問:函數公式要怎麼編輯?
謝謝!

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

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

TOP

隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

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

回復 3# samwang
回復 4# hcm19522

感謝二位大大的幫忙!

TOP

        靜思自在 : 君子如水,隨方就圓,無處不自在。
返回列表 上一主題