powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / изменение размерности таблицы
9 сообщений из 9, страница 1 из 1
изменение размерности таблицы
    #32798101
пва2004
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
подскажите как в екселе преобразовать таблицу из двумерной в одномерную,
т.е.

есть:

а в с д
к 1 2 3
л 4 5 6
м 7 8 9
- - - - -
н 8 7 6

надо:
к в 1
к с 2
к д 3
л в 4
л с 5
л д 6
- - - -
...
Рейтинг: 0 / 0
изменение размерности таблицы
    #32798193
MrCorp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Почитай любую книжку по VBA. Макрос элементарно пишится.
...
Рейтинг: 0 / 0
изменение размерности таблицы
    #32798394
пва2004
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
благодарю за полный и всеобъемлющий ответ ! -)
...
Рейтинг: 0 / 0
изменение размерности таблицы
    #32799475
пва2004
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а подробнее ?
...
Рейтинг: 0 / 0
изменение размерности таблицы
    #32799493
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
подробней бы лучше вам сформулировать вопрос , например, правило, по которому получается 2 таблица. можно приложить скриншот excel.
...
Рейтинг: 0 / 0
изменение размерности таблицы
    #32799820
пва2004
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я так понимаю, что это задача обратная формированию сводной таблицы.
Есть свойства по столбцу и по строке, а надо все перевести в столбец,
т.е.


есть:
столбец 1 столбец 2 ..... столбец Х
строка 1
строка 2
......
строка У


надо перевести в формат:
строка 1 столбец 1
строка 1 столбец 2
.........
строка 1 столбец Х
.......
.......
строка у столбец Х


VBA пока ни разу не пользовался - сижу, читаю а время идет...
если это не сильно сложно- подскажите как
...
Рейтинг: 0 / 0
изменение размерности таблицы
    #32800445
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Делай построчно:
1.Выделить строку
2.копировать в буфер
3. установить табличный курсор на свободную ячейку (лучше на другом листе)
4. правка-->специальная вставка-->транспонировать-->ОК

Запиши этот макрос и доработай напильником.
...
Рейтинг: 0 / 0
изменение размерности таблицы
    #32801546
пва2004
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Написал тестовый примерчик,
но не могу понять, как из результирующей таблицы убрать строчки с нулевыми значениями ?????


For i = 1 To 6
For k = 1 To 2
ActiveCell.FormulaR1C1 = Range("A1").Offset(i, 0).Value
ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = Range("A1").Offset(i, 1).Value
ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = Range("A1").Offset(i, 2).Value
ActiveCell.Offset(0, 1).Range("A1").Select


ActiveCell.FormulaR1C1 = Range("A1").Offset(0, k + 3).Value
ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = Range("A1").Offset(i, k + 3).Value
If ActiveCell.FormulaR1C1 = Range("A1").Offset(i, k + 3).Value > 0 Then _
ActiveCell.Offset(0, -4).Range("A1").Select Else _
ActiveCell.Offset(1, -4).Range("A1").Select

Next k

Next i

исходная таблица:

№ договора Потребитель скидка ИТОГО Катанка 6,5 Катанка 8

144027 МК (Бетфор) 6 0
144173 МК (353 ЖБИ) 5 0 2.
144060 Корп. АСК (Строй-Комплект)8 255 10 10
144134 ТД Мост 4 0
144116 ЖБИ-Сервис 4 32 3
144104 Полимертрубстрой(БЗСК) 5 152 2


полученная таблица:

144027 МК (Бетфор) 6 Катанка 6,5
144027 МК (Бетфор) 6 Катанка 8
144173 МК (353 ЖБИ) 5 Катанка 6,5 2
144173 МК (353 ЖБИ) 5 Катанка 8
144060 Корп. АСК (Строй-Компл) 8 Катанка 6,5 10
144060 Корп. АСК (Строй-Комплт) 8 Катанка 8 10
144134 ТД Мост 4 Катанка 6,5
144134 ТД Мост 4 Катанка 8
144116 ЖБИ-Сервис 4 Катанка 6,5
144116 ЖБИ-Сервис 4 Катанка 8 3
144104 Полимертрубстрой(БЗСК) 5 Катанка 6,5
144104 Полимертрубстрой(БЗСК) 5 Катанка 8 2
...
Рейтинг: 0 / 0
изменение размерности таблицы
    #32801592
пва2004
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
прошу извинить за неотформатированный текст

таблички приложены.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / изменение размерности таблицы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]