VBA: Look at column A and column B, Paste all combinations of column A and B in columns C and D

[PorcupineGuy]

Hello all,

I took a quick peek around the forum and found something similar to what I want, but not quite: VBA: Look at column A, Paste all combination pairs into B & C

What I am looking for is:

A	B	C	D
Org1	ID1	Org1	ID1
Org2	ID2	Org1	ID2
Org3	ID3	Org1	ID3
	ID4	Org1	ID4
	ID5	Org1	ID5
		Org2	ID1
		Org2	ID2
		Org2	ID3
		Org2	ID4
		Org2	ID5
		Org3	ID1
		Org3	ID2
		Org3	ID3
		Org3	ID4
		Org3	ID5

The output in columns C and D will have the numbers rows = [number of rows in A]*[number of rows in B] -- so for the example above, since column A has 3 rows and column B has 5 rows, columns C and D will be 15 rows in total.

Thanks in advance!

 

[Legacy 143009]

Sub myFunction()
  Dim lRowA As Integer, lRowB As Integer, r As Integer
  lRowA = Cells(Rows.Count, 1).End(xlUp).Row
  lRowB = Cells(Rows.Count, 2).End(xlUp).Row
  r = 1
  For i  = 1 To lRowA
    For j = 1 To lRowB
      Cells(r, 3).Value = Cells(i, 1).Value
      Cells(r, 4).Value = Cells(j, 2).Value
      r = r + 1
    Next j
  Next i
End Sub

 

[PorcupineGuy]

Thank you so much, Flashbond! This is exactly what I was looking for. Truly appreciate it.

 

[Legacy 143009]

Thanks for the feedback