Excel Convertendo Linhas em Colunas

1

A tabela de entrada é

Project ID  Project
A   1
A   2
A   3
B   4
B   5
B   6
B   7
C   8
C   9

Tabela de saída

A   B   C
1   4   8
2   5   9
3   6   
    7   

Alguém pode ajudar com isso?

    
por Shravan 19.01.2016 / 07:53

2 respostas

1

Primeiro, coloque os cabeçalhos das colunas na linha 1 como:

Emseguida,executeestamacrocurta:

SubFillColumns()DimiAsLong,NAsLong,MAsLongDimrAsRange,vAsStringN=Cells(Rows.Count,"A").End(xlUp).Row

   For i = 2 To N
      v = Cells(i, "A").Value
      Set r = Range("A1").EntireRow.Find(After:=Range("C1"), What:=v)
      c = r.Column
      M = Cells(Rows.Count, c).End(xlUp).Row + 1
      Cells(M, c).Value = Cells(i, 2).Value
   Next i
End Sub

Para produzir:

A macro não requer que a coluna A ou B seja classificada.

    
por 19.01.2016 / 16:07
-1

Como @Burgi postou em seu comentário, a coisa mais fácil aqui é criar uma Tabela Dinâmica.

Selecione os dados desejados e selecione Tabela Dinâmica na sua faixa de opções. Em seguida, defina sua linha de ID DO PROJETO como suas colunas e ID do projeto como suas linhas. Isso informará quantos de cada projeto A1, A2, A3 você tem.

Excelisfun é um bom lugar para começar para mais informações:)

    
por 19.01.2016 / 10:54