Loop to combine two columns

[Sttil]

Hi,

Would really appreciate your help in getting the vba code for below.

I have two columns (Key col 1 & 2) with data. Every row in "key col 1" needs to generate one entry row with two columns (doesn't really matter where, it can start output on "C2") for each value in "Key col 2", like in table below.

I've tried to make some different for next and for each statements, but my main issue I think is I suck.

Key col 1	Key col 2	VBA output col 1	VBA output col 1
1	a	1	a
2	b	1	b
	c	1	c
		2	a
		2	b
		2	c

Thanks and regards
Staffan

 

[Fluff]

How about

Sub Sttil()
   Dim Rng As Range, Cl As Range
   
   Set Rng = Range("A2", Range("A" & Rows.Count).End(xlUp))
   With Range("B2", Range("B" & Rows.Count).End(xlUp))
      .Copy Range("D2").Resize(.Rows.Count * Rng.Count)
      For Each Cl In Rng
         Cl.Copy Range("C" & Rows.Count).End(xlUp).Offset(1).Resize(.Count)
      Next Cl
   End With
End Sub

 

[Sttil]

How about

Sub Sttil()
   Dim Rng As Range, Cl As Range
  
   Set Rng = Range("A2", Range("A" & Rows.Count).End(xlUp))
   With Range("B2", Range("B" & Rows.Count).End(xlUp))
      .Copy Range("D2").Resize(.Rows.Count * Rng.Count)
      For Each Cl In Rng
         Cl.Copy Range("C" & Rows.Count).End(xlUp).Offset(1).Resize(.Count)
      Next Cl
   End With
End Sub

It worked great, thank you!!

 

[Fluff]

You're welcome & thanks for the feedback.