закрыто - перевод матрицы в таблицу

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » закрыто - перевод матрицы в таблицу (Формулы/Formulas)

pra313

Дата: Четверг, 14.01.2016, 01:26 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel для Mac

есть график производства видов продукции в виде матрицы. надо запихнуть его в сводную таблицу. для этого надо перевести в табличный формат. помогите(

К сообщению приложен файл: 4959779.xlsx (34.7 Kb)

Сообщение отредактировал pra313 - Четверг, 14.01.2016, 06:43

Ответить

mathiax90

Дата: Четверг, 14.01.2016, 03:40 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 199

Репутация: 24 ±

Замечаний: 0% ±

Excel 2007

Простой макрос.

[vba]

Код

Sub matrix2table()

'с какой строки формировать таблицу из матрицы, т.е. результат
j = 22
'строки
For i = 2 To 6
    'столбцы
    For k = 2 To 4
        'если значение не пустое
        If ActiveSheet.Cells(i, k) <> 0 Then
            'скопируем название строки
            ActiveSheet.Cells(j, 1).Value = ActiveSheet.Cells(i, 1)
            'скопируем название столбца
            ActiveSheet.Cells(j, 2).Value = ActiveSheet.Cells(1, k)
            'скопируем значенеи ячейки на пересечении столбца и строки
            ActiveSheet.Cells(j, 3).Value = ActiveSheet.Cells(i, k)
            'переход на новую строку во вновь создаваемой таблицы (цели)
            j = j + 1
        End If
    Next k
Next i

End Sub

[/vba]
Пример в приложении