Do Until Cell IsEmpty

Hi

If you just want a pairing listing then try

Sub aaa()
  For i = 1 To 44
    For j = i + 1 To 45
      outrow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
      Cells(outrow, 1).Value = i
      Cells(outrow, 2).Value = j
    Next j
  Next i
End Sub

Adjust the output place to suit.

rylo

Originally Posted by rylo

Hi

If you just want a pairing listing then try

Sub aaa()
  For i = 1 To 44
    For j = i + 1 To 45
      outrow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
      Cells(outrow, 1).Value = i
      Cells(outrow, 2).Value = j
    Next j
  Next i
End Sub

Adjust the output place to suit.

rylo

Thanks rylo, I can use this for other parts of my projects!