vba - vba excel，增量宏

Question

我的宏有问题.. 我有 2500 个数字，我想像这样对数字进行排序：1:10，下一个跳到 17，17:48，跳到 50，再跳一个.. 这是我的代码，我可以发现错误

Sub numeracja()
    Dim IleNaLiscie, licznik As Integer

    Sheets("sum").Select
    Range("L1").Activate
    IleNaLiscie = 0
    licznik = 1

    Do While licznik < 100
        Do While ActiveCell.Offset(IleNaLiscie, -10).Text <> ""   
            If IleNaLiscie < licznik * 10 Then
                Do While IleNaLiscie < licznik * 10
                    ActiveCell.Offset(IleNaLiscie, 0).Copy
                    ActiveCell.Offset(IleNaLiscie, -11).Select
                    ActiveSheet.Paste
                    Range("L1").Activate
                    IleNaLiscie = IleNaLiscie + 1
                Loop 
            Else
                IleNaLiscie = IleNaLiscie + 6 'HERE

                If IleNaLiscie < licznik * 48 Then    
                    Do While IleNaLiscie < licznik * 48
                        ActiveCell.Offset(IleNaLiscie, 0).Copy
                        ActiveCell.Offset((IleNaLiscie - 6), -11).Select
                        ActiveSheet.Paste
                        Range("L1").Activate
                        IleNaLiscie = IleNaLiscie + 1
                    Loop
                Else 
                    IleNaLiscie = IleNaLiscie + 2

                    If IleNaLiscie = licznik * 50 Then 'here "licznik" isn't increment but it goes to the 'HERE' 
                        licznik = licznik + 1
                    Else

                    End If
                End If
            End If
        Loop
    Loop
End Sub

然后所有程序都不再执行..你能帮帮我吗？

标签： vbaexcel