Este fórum está sendo desativado

[cmgs01]

Boa tarde!

Tenho isto:

ESCOLA PDDE MAIS_ALFABETIZAÇÃO EDUCAÇÃO_CONECTADA

CENTRO_DE_REFERENCIA_SEVERINO_UCHOA 1.000,00 2.000,00 3.000,00
CENTRO_ESTADUAL_FIGUEIREDO_BARRETO 4.000,00 5.000,00 6.000,00
COL_EST_ATHENEU 7.000,0 8.000,00 9.000,00

E quero isto, de forma automática:

ESCOLA PROGRAMA VALOR

CENTRO_DE_REFERENCIA_SEVERINO_UCHOA PDDE 1.000,00
CENTRO_DE_REFERENCIA_SEVERINO_UCHOA MAIS_ALFABETIZAÇÃO 2.000,00
CENTRO_DE_REFERENCIA_SEVERINO_UCHOA EDUCAÇÃO_CONECTADA 3.000,00
CENTRO_ESTADUAL_FIGUEIREDO_BARRETO PDDE 4.000,00
CENTRO_ESTADUAL_FIGUEIREDO_BARRETO MAIS_ALFABETIZAÇÃO 5.000,00
CENTRO_ESTADUAL_FIGUEIREDO_BARRETO EDUCAÇÃO_CONECTADA 6.000,00
COL_EST_ATHENEU PDDE 7.000,00
COL_EST_ATHENEU MAIS_ALFABETIZAÇÃO 8.000,00
COL_EST_ATHENEU EDUCAÇÃO_CONECTADA 9.000,00

Tem como?

[babdallas]

Veja se ajuda. Assista o vídeo.

https://contexturesblog.com/archives/20 ... vot-table/

[babdallas]

Também pode ser feito facilmente usando PowerQuery.

https://www.youtube.com/watch?v=PRwJrSu1Sfs

[cmgs01]

Obrigado!!! Nunca tinha reparado nesta opção Obter e Transformar.

Está executando agora, mas bem lento!

E vou ver este Power Query com calma. É um suplemento para o Excel?

[cmgs01]

Estava lento porque tinha selecionado a planilha inteira e não só a tabela... rs rs
Corrigi e no final deu um erro ao fechar e carregar, mas contornei, colocando em formato de tabela e copiando tudo para outro arquivo Excel. Quebrou um galhão! Obrigado!

[Jimmy]

Mais uma solução...

- Entre na planilha
- Tecle ALT+F11
- Abre-se a janela de desenvolvimento
- Clique no menu INSERIR, e em seguida em MODULO
- Copie a macro abaixo e cole na jaleda da direita, o grande quadrado em branco
- Se quiser, pode colocar um botão na planilha para executar.

As primeiras linhas da macro definem as colunas e linhas de entrada e saída. Assumi que os dados de entrada iniciam na célula F10, sendo a F10 a linha inicial que define os textos (PDDE MAIS_ALFABETIZAÇÃO EDUCAÇÃO_CONECTADA) e as demais, a partir da F11, os dados em si.
Assumi que a saida seria a partir da G11.

Sub Separa()
ColE = "F": Line = 10 'Coluna e linha de Entrada
ColS = "G": LinS = 11 'Coluna e linha de Saida
Range(ColS & LinS & ":" & ColS & Rows.Count).ClearContents
Ate = Range(ColE & Rows.Count).End(xlUp).Row
For Lin = Line To Ate 'Percorre as linhas
Termo = Split(Range(ColE & Lin).Value, " ")
If Lin = Line Then 'Para a primeira linha, guarda os textos
Texto1 = Trim(Termo(1)): Texto2 = Trim(Termo(2)): Texto3 = Trim(Termo(3))
Else 'Para as demais linhas, divide
Range(ColS & LinS + 0).Value = Termo(0) & " " & Texto1 & " " & Format(Termo(1), "#,##0.00")
Range(ColS & LinS + 1).Value = Termo(0) & " " & Texto2 & " " & Format(Termo(2), "#,##0.00")
Range(ColS & LinS + 2).Value = Termo(0) & " " & Texto3 & " " & Format(Termo(3), "#,##0.00")
LinS = LinS + 3
End If
Next
End Sub


Jimmy San Juan

[Deciog]

cmgs01

Uma Pergunta

isso esta em texto único CENTRO_DE_REFERENCIA_SEVERINO_UCHOA 1.000,00 2.000,00 3.000,00
ou coluna por coluna? coluna A CENTRO_DE_REFERENCIA_SEVERINO_UCHOA coluna B 1.000,00 coluna C 2.000,00 Coluna D 3.000,00

Decio