Como colocar várias colunas em uma única - excel?

Question

Oi, preciso de ajuda.

Tenho uma planilha que tem 1000 colunas. Cada coluna possui 31 linhas. Preciso empilhar elas numa única coluna, seguindo a sequência exata. Observação: há valores em branco aleatoriamente e preciso que estes espaços, quando do "empilhamento", permaneçam em branco, pois são falhas nas leituras do medidor. 

Alguém poderia me ajudar com uma macro?

Answer 1

Option Explicit

Sub teste()
    
    Dim lin, col, linha As Long
    lin = 32
    col = 2
    
    While col <= 1000
        linha = 1
        While linha <= 31
            ThisWorkbook.Sheets("Planilha1").Cells(lin, 1) = ThisWorkbook.Sheets("Planilha1").Cells(linha, col)
            ThisWorkbook.Sheets("Planilha1").Cells(linha, col) = ""
            linha = linha + 1
            lin = lin + 1
        Wend
        col = col + 1
        
    Wend
    
    
End Sub

---

Anderson Diniz

Answer 2

https://social.msdn.microsoft.com/Forums/pt-BR/3dfdcd8c-5c88-4c6a-a2fb-088a9d01ac9b/dividir-um-intervalo-nas-colunas-ab-em-outros-5-intervalos?forum=vbapt

---

Anderson Diniz

Answer 3

Favor marcar como respondido.

---

Anderson Diniz