Table creation help please

[Guest]

I have to create a worksheet for a highway design class. I need to be able to
create a table between certain chainage stations.

example:
I need to create a table starting from 10+000 to 12+000 at 20 metre intervals.

Is this possible so a table is created with a column of station numbers
10+000, 10+020, 10+040, 10+060....... 11+080, 12+000.

Any help or ideas is greatly appreciated.

 

[Trevor Shuttleworth]

One way, with a macro:

Sub CreateStations()

Const FirstPartLower = 10
Const FirstPartUpper = 11
Const SecondPartLower = 0
Const SecondPartUpper = 80
Const FinalPart = 12
Dim i As Long
Dim j As Long
Dim k As Long

k = 1

For i = FirstPartLower To FirstPartUpper Step 1
For j = SecondPartLower To SecondPartUpper Step 20
Range("A" & k) = _
Application.WorksheetFunction.Text(i, "00") & _
"+" & _
Application.WorksheetFunction.Text(j, "000")
k = k + 1
Next j
Next i

Range("A" & k) = _
Application.WorksheetFunction.Text(FinalPart, "00") & _
"+" & _
Application.WorksheetFunction.Text(0, "000")

End Sub


Adjust the constants as required

Regards

Trevor