Fill rows with incremental data

Try:

Formula:

=INT((ROW()-1)/10)+1

Is the 1, 2, 3 the REAL data or is that just made up for the example?

Originally Posted by kobiashi

the 1,2,3 is just made up data, but the real data will be an integer

Tell us what the real data is.

Originally Posted by kobiashi

the 1,2,3 is just made up data, but the real data will be an integer

Is the real data related to the row number - in which case, what is the algorithm?

Or is it unrelated - in which case, where / how do you store your list of values?

And how many rows / values will you be dealing with?

Originally Posted by kobiashi

hi, the real data is numbers 354 to 510, each number has to be added 166 times,

In that case, you could use:

Formula:

=INT((ROW()-1)/166)+354

in B1:B26062.


This macro speeds up the entry:

Sub foo()
    Dim lLow As Long
    Dim lHigh As Long
    Dim lQty As Long
    
    'Change variables to suit
    lLow = 354
    lHigh = 510
    lQty = 166
    
    With ActiveSheet.Range("B1").Resize((1 + lHigh - lLow) * lQty, 1)
        .ClearContents
        .Formula = "=INT((ROW()-1)/" & lQty & ")+" & lLow
        .Value = .Value
    End With
    
End Sub

Originally Posted by kobiashi

in another column i need to add numbers 354 to 510, incrementally, and carry this out 166 times, could this marco be customised to suit?

Sure. Use:

Sub bar()
    Dim lLow As Long
    Dim lHigh As Long
    Dim lQty As Long
    
    'Change variables to suit
    lLow = 354
    lHigh = 510
    lQty = 166
    
    With ActiveSheet.Range("C1").Resize((1 + lHigh - lLow) * lQty, 1)
        .ClearContents
        .Formula = "=MOD((ROW()-1),(" & 1 + lHigh - lLow & "))+" & lLow
        .Value = .Value
    End With
    
End Sub

If that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED. You can also 'Add Reputation' to those who have helped you. Thanks.