Como transpor 2 tipos de dados em 2 novas colunas.

[patoleonardo]

Eu tive um problema recentemente com isso, baixei um PDF com informações sobre colaboradores e valores correlacionados a cada um, entretanto para pôr esses dados em planinha dinâmica é preciso que eles estejam subdivididos em duas colunas. Exemplo:

Colaborador A

10

Colaborador B

20

30

Colaborador C

40

50

60

(isso é só em uma coluna)

------------------------------

Gostaria que ficasse assim:

Colaboradores | Valor

Colaborador A | 10

Colaborador B | 50

Colaborador C | 150

Só que não sei, me ajudem por favor...

[Trafix]

Boa tarde,Poto!?

Tente assim, copie os dados que queira transpor, com botão direito do mouse em colar especial escolha a opção Transpor depois dê Ok.

Atá mais,

[Patropi]

Boa tarde patoleornardo

Poste um exemplo da tua planilha num site gratuito como:

www.sendspace.com

Depois cole o link da planinlha aqui no fórum.

Abraço.

[Visitante]

Se quiser experimentar uma solução utilizando macro, 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 Inserir >> Módulo

4. cole o código na janela em branco que se abrirá

5. feito! Alt+Q para retornar para a planilha

6. para rodar o código tecle Alt+F8, selecione 'AdicionaPorColab' >> Executar

obs. considerei que os dados estão na coluna 'A'; o código irá reproduzir os dados nas colunas 'C' e 'D'

Sub AdicionaPorColab()
 Dim LRa As Long, LRc As Long, k As Long, Soma As Long
 k = 1
 LRa = Cells(Rows.Count, 1).End(xlUp).Row

  Do While k + 1 <= LRa
     LRc = Cells(Rows.Count, 3).End(xlUp).Row
     Cells(LRc + 1, 3) = Cells(k, 1)

      Do While IsNumeric(Cells(k + 1, 1))
       If k = LRa Then GoTo caifora
        Soma = Soma + Cells(k + 1, 1).Value
       k = k + 1
      Loop

     Cells(LRc + 1, 4) = Soma
    k = k + 1
  Loop
caifora:     Cells(LRc + 1, 4) = Soma
End Sub