Página 1 de 1

Popular Array

Enviado: 03 Out 2018 às 07:46
por luizpaps
Bom dia, pessoal, estou precisando da ajuda dos mestres no seguinte tópico
tenho uma matriz no excel 1846 linhas( que pode variar) por 12 colunas(fixa) então eu queria transformá-la em uma matriz
de 6col x 3692lin ex.:

1 2 3 4 5 6 7 8 9 10 11 12 primeira linha está assim

quero que fique assim transforme a primeira linha em 2 e assim sucessivamente até o fim das linhas
1 2 3 4 5 6
7 8 9 10 11 12
Obrigado pela atenção.

Re: Popular Array

Enviado: 03 Out 2018 às 08:32
por osvaldomp
Experimente:
Código: Selecionar todos
Sub OrganizaDados()
 Dim k As Long
  Application.ScreenUpdating = False
   For k = 1 To Cells(Rows.Count, 1).End(3).Row
    Cells(k, 7).Resize(, 6).Cut
    Cells(2 * k, 1).Insert Shift:=xlDown
   Next k
  Application.ScreenUpdating = True
End Sub

Popular Array

Enviado: 03 Out 2018 às 09:47
por luizpaps
osvaldomp, Muito Obrigado, valeu, um código bem simples, estava pensando em fazer um array, mas desse jeito é muito mais simples