auto fill with specific interval numbers

[faizee]

Dear all
i want to fill series with specific intervals
for example

auto fill with 2 interval	auto fill with 3 interval
85	85
85	85
86	85
86	86
87	86
87	86
88	87
88	87
89	87
89	88
	88
	88

 

[Joe4]

You need to provide us with a bit more information if you want us to tailor a solution to suit your needs.
What does the initial data look like (how to we know what values to do this for, and how do we know what the interval is)?
What range is your data in?
And do you want the solution to happen to the current existing data, or write the results to a new location?
Is a VBA solution acceptable.

It might be helpful to show us BEFORE/AFTER images, so we can see exactly what your data looks like initially.

 

[faizee]

its a simple query,
I just want to fill cell with number with specific intervals,
like 2 , 3 or 4
column a
11
11
12
12
13
13
14
14


and if interval is 3, then cell auto fill should be
11
11
11
12
12
12
13
13
13

an go on

 

[Joe4]

Try this:

Sub MyFillMacro()

    Dim i As Integer
    Dim lr As Long
    Dim r As Long
    Dim v As Variant
    Dim x As Long
    
    Application.ScreenUpdating = False
    
'   Prompt for interval
    i = InputBox("What interval do you want?")
    If i <= 1 Then
        MsgBox "You have entered an invalid value", vbOKOnly, "ENTRY ERROR!"
        Exit Sub
    End If
        
'   Find last row with data in column A
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through rows backwards
    For r = lr To 1 Step -1
'       Get current value
        v = Cells(r, "A")
'       Calculate how many rows to insert
        x = i - Application.WorksheetFunction.CountIf(Range("A:A"), v)
'       Insert rows, if necessary and add values
        If x > 0 Then
            Rows(r + 1 & ":" & r + x).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Range(Cells(r + 1, "A"), Cells(r + x, "A")) = v
        End If
    Next r

    Application.ScreenUpdating = True

End Sub

 

[faizee]

not VBA
i want through formula, or auto fill series

 

[bebo021999]

Start= 85, interval = 2

=85+INT((ROWS($1:1)-1)/2)

 

[Joe4]

not VBA
i want through formula, or auto fill series

I had asked if VBA was an acceptable solution in my first reply, but you did not answer that question.
There were actually a few question in there that you did not answer.

That is the problem if you don't describe exactly what you want in full detail and don't answer all our questions.
We are then left to make assumptions and/or "guesses", which may not actually work for you.