none
Oi ! preciso de ajuda por favor! RRS feed

  • Pergunta

  • Tenho uma planilha com 366 colunas e gostaria de colocar todas essas colunas uma em cima da outra.

    cada coluna tem 50 linhas , gostaria de por a coluna 2 embaixo da coluna 1 e a coluna 3 embaixo da coluna 2,  e assim até a coluna 366. por favor me ajudaaa!!!

    sábado, 23 de fevereiro de 2019 22:02

Todas as Respostas

  • Tenho uma planilha com 366 colunas e gostaria de colocar todas essas colunas uma em cima da outra.

    cada coluna tem 50 linhas , gostaria de por a coluna 2 embaixo da coluna 1 e a coluna 3 embaixo da coluna 2,  e assim até a coluna 366. por favor me ajudaaa!!!

    resumindo todas as 366 colunas em apenas 1 unica coluna!
    sábado, 23 de fevereiro de 2019 22:03
  • Olá, boa tarde.

    Veja se o link abaixo pode te ajudar a solucionar:

    http://www.microsoftexcel.com.br/index.php/excel-dicas-microsoft-excel-vba/60-excel-vba-celulas/1235-excel-planiha-vba-selecionar-deslocando-celulas-linhas-colunas.html

    Abs

    terça-feira, 26 de fevereiro de 2019 16:40
  • Bom, tem várias formas de fazer o que precisa. Talvez a mais simples seja algo do tipo:

    Dim Intervalo As Range, Dados As Variant, DadosNorm() As Variant
    Dim i As Long, j As Long, nL As Long, nC As Long
    
    Set Intervalo = ActiveSheet.Range(Cells(1, 1), Cells(50, 366))
    
    Dados = Intervalo.Value2
    Intervalo.ClearContents
    
    nL = UBound(Dados, 1)
    nC = UBound(Dados, 2)
    
    ReDim DadosNorm(1 To nL * nC, 1 To 1)
    
    For j = 1 To nC
        For i = 1 To nL
            DadosNorm(i + nL * (j - 1), 1) = Dados(i, j)
        Next i
    Next j
    
    ActiveSheet.Range(Cells(1, 1), Cells(1 + nL * nC - 1, 1)).Value2 = DadosNorm

    Atende?


    Filipe Magno

    quarta-feira, 27 de fevereiro de 2019 23:12