Listing All Possible Combinations

[reberryjr]

I have what might be an odd question. I have a map that has even-sized plots within it. The latitude can range from 0 - 1200 and the longitude can range from 0 - 1200. I'm trying to list every single latitude & longitude combination possible (yes, I know it'll be a lot). How can I go about this?

 

[jolivanes]

On an empty sheet.

Sub Maybe()
Dim i As Long, j As Long
ActiveSheet.Cells.NumberFormat = "@"
Application.ScreenUpdating = False
    For i = 0 To 1200
        For j = 0 To 1200
            Cells(j + 1, i + 1).Value = "Lat " & i & " - " & "Long " & j
        Next j
    Next i
Application.ScreenUpdating = True
End Sub

 

[reberryjr]

On an empty sheet.

Sub Maybe()
Dim i As Long, j As Long
ActiveSheet.Cells.NumberFormat = "@"
Application.ScreenUpdating = False
    For i = 0 To 1200
        For j = 0 To 1200
            Cells(j + 1, i + 1).Value = "Lat " & i & " - " & "Long " & j
        Next j
    Next i
Application.ScreenUpdating = True
End Sub

Many thanks!

 

[Sergius]

Option using formulas.

Book1.xlsm
	A	B	C	D
1	dolgota	shirota		Resultat
2	41.1458	58.14		41.1458-58.14
3	41.1459	58.15		41.1458-58.15
4				41.1459-58.14
5				41.1459-58.15
6
Sheet6

Cell Formulas
Range	Formula
D2:D6	D2	=IFERROR(INDEX($A$2:$A$3,INT((ROW()-ROW($D$2))/COUNTA($B$2:$B$3)+1))&"-"&INDEX($B$2:$B$3,MOD(ROW()-ROW($D$2),COUNTA($B$2:$B$3))+1),"")

 

[jolivanes]

Thanks for the update & good luck

 

[jolivanes]

This is about 4 times faster on my machine.

Sub With_Formula()
ActiveSheet.Cells.NumberFormat = "General"
Application.ScreenUpdating = False
With Range("A1:ATE1201")
    .Formula = "=""Lat "" & ROW()-1&"" - ""&""Long ""&COLUMN()-1"
    .Value = .Value
End With
Application.ScreenUpdating = True
End Sub

 

[djclements]

A formula variant for modern Excel:

=SEQUENCE(1201,,0)&", "&SEQUENCE(,1201,0)

 

[jolivanes]

Re: "for modern Excel:" I like that. Makes my day!!!!