Mova todas as 3 linhas para uma coluna no Excel

Question

Por favor, eu preciso da sua ajuda. Eu preciso mover cada 3 linhas em uma nova coluna. Vamos supor que eu tenha isto:

Ambassade de France
S.E. M. Patrice PAOLI
01-420000-420150

Ambassade de France
Mme.  Jamilé Anan
01-420000-420150

Ambassade de France
Mme . Marie Maamari
01-420000-420150

Eu preciso que eles sejam assim:

Ambassade de France      S.E. M. Patrice PAOLI          01-420000-420150
Ambassade de France      Mme.  Jamilé Anan              01-420000-420150
Ambassade de France      Mme . Marie Maamari            01-420000-420150

Eu tenho esse código. Você pode me ajudar por favor. Está me dando erro. Fora de alcance. O que devo mudar? (o código é para cada 7, eu preciso para cada 3)

Sub Every7()
    Dim i As Integer, j As Integer, cl As Range
    Dim myarray(100, 6) As Integer 'I don't know what your data is.  Mine is integer data
    'Change 100 to however many rows you have in your original data, divided by seven, round up
    'remember arrays start at zero, so 6 really is 7

    If MsgBox("Is your entire data selected?", vbYesNo, "Data selected?") <> vbYes Then
        MsgBox ("First select all your data")
    End If

    'Read data into array
    For Each cl In Selection.Cells
        Debug.Print cl.Value
        myarray(i, j) = cl.Value
        If j = 6 Then
            i = i + 1
            j = 0
        Else
            j = j + 1
        End If
    Next

    'Now paste the array for your data into a new worksheet
    Worksheets.Add
    Range(Cells(1, 1), Cells(101, 7)) = myarray
End Sub

    

Answer 1

Tente isto:

1. Substitua o número "6" por "2" e
2. Substitua o número "7" por "3" no seu código.
   

Nota: Dim myarray(100, 2) - Os 100 nesta linha são o número total de linhas que você tem. Se você tem (vamos supor) 50 linhas, então mude para 50.