Empilhar colunas Excel

timzagonel · 9 de julho de 2012

Olá,

tenho uma planilha com dados em várias colunas de 25 linhas cada uma e preciso empilhar estas colunas em uma só. Como posso fazer isso?

Obrigado!

9 de julho de 2012

1. quais as colunas com dados a empilhar?

2. os dados estão a partir de qual linha? igual para todas as colunas?

3. em qual coluna de qual planilha os dados serão empilhados?

timzagonel · 9 de julho de 2012

1. quais as colunas com dados a empilhar?
2. os dados estão a partir de qual linha? igual para todas as colunas?

3. em qual coluna de qual planilha os dados serão empilhados?

1. colunas de A a ARR

2. A partir da linha 11

3. Coluna B da mesma planilha (os dados estão organizados em colunas de A a ARR na mesma planilha).

9 de julho de 2012

considerei que:

a) o código abaixo empilha os dados na coluna 'B' iniciando em 'B40'

de cada coluna, de 'A' até 'ARR', serão extraídos dados de 25 linhas, da linha 11 até a linha 35, para serem empilhados

c) os dados originais serão preservados

instale o código abaixo em um módulo comum, assim:

1. copie o código daqui

2. a partir da planilha de interesse tecle Alt+F11 para acessar o editor de VBA

3. no menu do editor Inserir >> Módulo, cole o código na janela em branco que vai se abrir

4. feito! Alt+Q para retornar para a planilha e testar

5. para rodar o código tecle Alt+F8, escolha 'EmpilhaColunas' >> Executar, ou insira um botão na planilha e vincule-o à macro 'EmpilhaColunas'

sugiro que faça os testes em uma cópia do seu arquivo

Sub EmpilhaColunas()
 Dim bloco As Range, k As Long, m As Long
  m = 40
   For k = 1 To 1162
    Set bloco = Range(Cells(11, k), Cells(35, k))
     Cells(m, 2).Resize(25) = bloco.Value
    m = m + 25
   Next k
End Sub

timzagonel · 9 de julho de 2012

deu certo! Muito obrigado!

Eu quero também copiar os dados das células fixas (anos) e repetir embaixo deles mesmos...ou seja, pegar as 25 células de cima e repetir logo abaixo delas, até o fim da amostra... da célula A39 até a A30224.

Tem como fazer isso com Macro tb?

9 de julho de 2012

Eu quero também copiar os dados das células fixas (anos) e repetir embaixo deles mesmos...ou seja, pegar as 25 células de cima e repetir logo abaixo delas, até o fim da amostra... da célula A39 até a A30224.
Tem como fazer isso com Macro tb?

Desculpe, não consegui entender o que você deseja.

Disponibilize exemplos dos dados, o resultado esperado, e as explicações de como obteve os resultados.

Rafael Pofírio · 13 de julho de 2016

Pessoal,

boa noite!

Preciso muito de uma ajuda, já procurei e não encontrei algo que me ajude, e não sou muito familiarizado com o VBA!

Estou com a mesma situação porém acredito que um pouco mais complexa!

Tenho uma planilha "Receita" com várias colunas determinando um critérios de receita a ser preenchido pelo financeiro.

Ao tentar montar um gráfico sobre minhas receitas e despesas, me deparei com este problema, não consigo "empilhar" todos os "submotivos" de preencimentos em uma coluna apenas para depois acrescentar os valores (somases) a estes submotivos.

A planilha com os dados preenchidos chama-se Receita;

Primeiro SubMotivo esta na "D6"

Ultimo SubMotivo esta em "S104"

**Entre as colunas de "Motivos" temos uma coluna em branco e outra com numerações crescentes**

Estes motivos deverão ficar listados uma abaixo do outro sem espaços em branco em outra planilha "Gráf." neste caso!

Muuuuitissimo obrigado

13 de julho de 2016

Olá, Rafael.

Sugestão: disponibilize uma amostra do seu arquivo com alguns dados, coloque o resultado desejado com as explicações de como chegou ao resultado. Figuras/imagens/prints não servem.

DJunqueira · 14 de julho de 2016

Tem várias formas de fazer o q eu compreendi q você quer sem usar macro.

Rafael Pofírio · 14 de julho de 2016

Bom dia pessoal!

Com fórmulas seria legal! mas se o jeito for VBA... corro atrás!

Segue anexo, modelo da planilha que estou usando!

Mais uma vez. Agradece!!!!

Ajuda_ClubeHardware.xlsx

DJunqueira · 15 de julho de 2016

Por query table / Nova Consulta, vá em Dados / Atualizar p/ atualizar ou botão direito do mouse selecionando Atualizar.

Ajuda_ClubeHardware.xlsx

Rafael Pofírio · 15 de julho de 2016

Bom diaaa!!!

@DJunqueira cara muito obrigado!!! Mas infelizmente não deu certo esta dando erro (anexo)!

Preciso aprender a fazer essas querytable!!!! deve facilitar muito a vida!

DJunqueira · 15 de julho de 2016

Qual é a sua versão do Excel?

15 de julho de 2016

@Rafael Pofírio Veja se o arquivo anexado ajuda.

a Atualiza Sub Itens CH.7z

DJunqueira · 16 de julho de 2016

@Rafael Pofírio

23 horas atrás, Rafael Pofírio disse:

Bom diaaa!!!

@DJunqueira cara muito obrigado!!! Mas infelizmente não deu certo esta dando erro (anexo)!

Preciso aprender a fazer essas querytable!!!! deve facilitar muito a vida!

Facilita e é bem fácil de usar.

É um meio termo entre a ferramenta de análise q é o Excel e um banco de dados.

Quanto ao erro, abra a Nova Consulta / Query Table e verifique cada uma das tabelas, se você mudar o nome das tabelas no Excel gerará erro.