Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/закрыто - перевод матрицы в таблицу - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » закрыто - перевод матрицы в таблицу (Формулы/Formulas)
закрыто - перевод матрицы в таблицу
pra313 Дата: Четверг, 14.01.2016, 01:26 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel для Mac
есть график производства видов продукции в виде матрицы. надо запихнуть его в сводную таблицу. для этого надо перевести в табличный формат. помогите(
К сообщению приложен файл: 4959779.xlsx(35Kb)


Сообщение отредактировал pra313 - Четверг, 14.01.2016, 06:43
 
Ответить
Сообщениеесть график производства видов продукции в виде матрицы. надо запихнуть его в сводную таблицу. для этого надо перевести в табличный формат. помогите(

Автор - pra313
Дата добавления - 14.01.2016 в 01:26
mathiax90 Дата: Четверг, 14.01.2016, 03:40 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 164
Репутация: 20 ±
Замечаний: 20% ±

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]
Пример в приложении
К сообщению приложен файл: 4959779.xlsm(19Kb)


webmoney: R242692021885
ЯД:410013877261817


Сообщение отредактировал mathiax90 - Четверг, 14.01.2016, 03:41
 
Ответить
СообщениеПростой макрос.

[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]
Пример в приложении

Автор - mathiax90
Дата добавления - 14.01.2016 в 03:40
mathiax90 Дата: Четверг, 14.01.2016, 03:48 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 164
Репутация: 20 ±
Замечаний: 20% ±

Excel 2007
Тоже самое, только новая таблица создаётся на втором листе.
Осталось только вставить исходную таблицу и поменять начальные и конечные значения i и k
К сообщению приложен файл: 3758847.xlsm(21Kb)


webmoney: R242692021885
ЯД:410013877261817
 
Ответить
СообщениеТоже самое, только новая таблица создаётся на втором листе.
Осталось только вставить исходную таблицу и поменять начальные и конечные значения i и k

Автор - mathiax90
Дата добавления - 14.01.2016 в 03:48
Pelena Дата: Четверг, 14.01.2016, 09:20 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 10421
Репутация: 2358 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
В Готовых решениях есть, по крайней мере, две подходящие темы
http://www.excelworld.ru/forum/3-15667-1
http://www.excelworld.ru/forum/3-17402-1


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеВ Готовых решениях есть, по крайней мере, две подходящие темы
http://www.excelworld.ru/forum/3-15667-1
http://www.excelworld.ru/forum/3-17402-1

Автор - Pelena
Дата добавления - 14.01.2016 в 09:20
Мир MS Excel » Вопросы и решения » Вопросы по Excel » закрыто - перевод матрицы в таблицу (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!