List numbers between two numbers

[WESTERNWALL]

Sounds weird, doesn't it?

I have two numbers, for example 1-5, 40-150, etc. I would like to list the numbers between those 1 to 5 or 40 to 150 including the first and the last, either somewhere else on the worksheet or on another tab. Is that possible?

Thanks

 

[johnmpl]

Hi!

If you have the data into A1 to Bx, Column A: Start, Column B: End, You must try this macro:

Sub ExpandSeries()
    Dim RR$, R&, C As Range    
    Application.ScreenUpdating = 0
    R = Range("A1").CurrentRegion.Rows.Count
    RR = "D1" ' Place to Write Results
    
    With Range(RR)
        .CurrentRegion.ClearContents ' Clear previous Results
        .Resize(2, R) = Application.Transpose(Range("A1").CurrentRegion)
        .Offset(2).Resize(, R) = "Series"
        .Offset(3).Resize(, R) = .Resize(, R).Value
        For Each C In .Offset(3).Resize(, R)
            C.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=C.Offset(-2)
        Next C
        .CurrentRegion.Columns.AutoFit
    End With
    Application.ScreenUpdating = 1
End Sub

 

[Useful]

Useful,

A very nice solution!!!

May I point out the need for one minor correction.........

Sub Fill()    [A4] = [A1].Value
    ato = [B1].Value
    [B4] = [A2].Value
    bto = [B2].Value
    [C4] = [A3].Value
    cto = [B3].Value
    [A4].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=ato
    [B4].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=bto
    [C4].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1, Stop:=cto
End Sub

Hello Snakehips!
thank you for correction i missed that while copy paste