|
изменение размерности таблицы
|
|||
---|---|---|---|
#18+
подскажите как в екселе преобразовать таблицу из двумерной в одномерную, т.е. есть: а в с д к 1 2 3 л 4 5 6 м 7 8 9 - - - - - н 8 7 6 надо: к в 1 к с 2 к д 3 л в 4 л с 5 л д 6 - - - - ... |
|||
:
Нравится:
Не нравится:
|
|||
24.11.2004, 14:45 |
|
изменение размерности таблицы
|
|||
---|---|---|---|
#18+
Почитай любую книжку по VBA. Макрос элементарно пишится. ... |
|||
:
Нравится:
Не нравится:
|
|||
24.11.2004, 15:12 |
|
изменение размерности таблицы
|
|||
---|---|---|---|
#18+
благодарю за полный и всеобъемлющий ответ ! -) ... |
|||
:
Нравится:
Не нравится:
|
|||
24.11.2004, 16:12 |
|
изменение размерности таблицы
|
|||
---|---|---|---|
#18+
а подробнее ? ... |
|||
:
Нравится:
Не нравится:
|
|||
25.11.2004, 12:59 |
|
изменение размерности таблицы
|
|||
---|---|---|---|
#18+
подробней бы лучше вам сформулировать вопрос , например, правило, по которому получается 2 таблица. можно приложить скриншот excel. ... |
|||
:
Нравится:
Не нравится:
|
|||
25.11.2004, 13:03 |
|
изменение размерности таблицы
|
|||
---|---|---|---|
#18+
я так понимаю, что это задача обратная формированию сводной таблицы. Есть свойства по столбцу и по строке, а надо все перевести в столбец, т.е. есть: столбец 1 столбец 2 ..... столбец Х строка 1 строка 2 ...... строка У надо перевести в формат: строка 1 столбец 1 строка 1 столбец 2 ......... строка 1 столбец Х ....... ....... строка у столбец Х VBA пока ни разу не пользовался - сижу, читаю а время идет... если это не сильно сложно- подскажите как ... |
|||
:
Нравится:
Не нравится:
|
|||
25.11.2004, 14:59 |
|
изменение размерности таблицы
|
|||
---|---|---|---|
#18+
Делай построчно: 1.Выделить строку 2.копировать в буфер 3. установить табличный курсор на свободную ячейку (лучше на другом листе) 4. правка-->специальная вставка-->транспонировать-->ОК Запиши этот макрос и доработай напильником. ... |
|||
:
Нравится:
Не нравится:
|
|||
25.11.2004, 19:07 |
|
изменение размерности таблицы
|
|||
---|---|---|---|
#18+
Написал тестовый примерчик, но не могу понять, как из результирующей таблицы убрать строчки с нулевыми значениями ????? 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 ... |
|||
:
Нравится:
Не нравится:
|
|||
26.11.2004, 14:27 |
|
|
start [/forum/topic.php?fid=61&msg=32801546&tid=2186391]: |
0ms |
get settings: |
10ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
55ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
46ms |
get tp. blocked users: |
1ms |
others: | 341ms |
total: | 482ms |
0 / 0 |