Excel Преобразование строк в столбцы

Question

Таблица ввода

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

Таблица вывода

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

Может ли кто-нибудь помочь с этим?

Answer 1

Сначала поместите заголовки столбцов в строку № 1, например:

Затем запустите этот короткий макрос:

Sub FillColumns()
   Dim i As Long, N As Long, M As Long
   Dim r As Range, v As String
   N = 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

Производить:

Макрос не требует сортировки столбца A или B.

Answer 2

Как писал @Burgi в своем комментарии, проще всего здесь создать сводную таблицу.

Выберите нужные данные, затем выберите «Сводная таблица» на ленте. Затем установите строку идентификатора проекта в качестве столбцов и идентификатор проекта в качестве строк. Это скажет вам, сколько из каждого проекта A1, A2, A3 у вас есть.

Excelisfun - хорошее место для получения дополнительной информации :)