транспонирование таблицы. Как лучше это сделать?

[aBro]

Добрый день!

нужна помощь!

Есть некая таблица, которую необходимо транспонировать. Руками делать не вариант, так как данных несколько тысяч.

Есть некая номенклатура с разными характеристиками. И необходимо, чтобы характеристика и значение попарно размещались в одну строку.

В файле пример.

Может есть вариант с помощью сводной таблицы, но как-то не получается у меня додуматься. (Характеристика и значения текстовые)

[Казанский]

aBro,
"Коды характеристики" действительно разные для всех видов номенклатуры?
Если будут одинаковые "Коды характеристики" - должны ли они располагаться в одном столбце (чтобы можно было сравнивать Значения у разных видов номенклатуры)?

[aBro]

У каждой номенклатуры своя характеристика.

[IgorGO]

см. вложение

[Казанский]

Наверно макросом все же удобнее. Результат на новом листе, без строки заголовка. Список должен быть отсортирован по ст. А.

Sub aBro()
Dim di As Object, i&, j&, k&, x, v()
  v = Range("A2", Cells(Rows.Count, "C").End(xlUp)).Value
  Set di = CreateObject("scripting.dictionary")
  For i = 1 To UBound(v)
    x = di(v(i, 1))
    x = x + 1
    If x > j Then j = x
    di(v(i, 1)) = x
  Next
  ReDim w(1 To di.Count, 0 To j * 2)
  For i = 1 To UBound(v)
    If v(i, 1) <> x Then
      x = v(i, 1)
      k = k + 1
      w(k, 0) = x
      j = 1
    End If
    w(k, j) = v(i, 2)
    w(k, j + 1) = v(i, 3)
    j = j + 2
  Next
  Worksheets.Add.Cells(2, 1).Resize(k, UBound(w, 2) + 1).Value = w
End Sub

[aBro]

Казанский, IgorGO, СПАСИБО БОЛЬШОЕ!!! Очень помогли!