Previous Topic Next Topic

Have to repeat list

Closed
kashif.aali Posts 1 Registration date Tuesday 16 May 2017 Status Member Last seen 16 May 2017 - 16 May 2017 à 02:17
TrowaD Posts 2921 Registration date Sunday 12 September 2010 Status Contributor Last seen 27 December 2022 - 16 May 2017 à 11:12
Dear all Please help out
have to repeat two list in one list.

Query:
List A List B
A 1
B 2
C 3
D


Results
List C
A 1
A 2
A 3
B 1
B 2
B 3

Thanks in advance

1 response

Réponse 1 / 1
TrowaD Posts 2921 Registration date Sunday 12 September 2010 Status Contributor Last seen 27 December 2022 555
16 May 2017 à 11:12
Hi Kashif.aali,

Give the following code a try: 
Sub RunMe()
Dim x, y, z As Integer

x = 1
y = 1
z = 1

Do
    Cells(x, "C").Value = Cells(y, "A") & " " & Cells(z, "B")
    x = x + 1
    z = z + 1
    
    If z > 3 Then
        y = y + 1
        z = 1
    End If
    
Loop Until IsEmpty(Cells(y, "A"))
End Sub


Best regards,
Trowa

Similar discussions

Snapchat block list
Jasonve -
dwebb -

1 response
Ig stories from close friends to public
Darren -
zara -

31 responses
Facebook Messenger - Suggested Friends
jadess_0462 -
Akajackal -

2 responses
A random chat ALWAYS top of my facebook messages on desktop
glock339 -
glock339 -

11 responses
lava hard reset & factory reset
AVAY -
Har -

3 responses