ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразование значений таблицы Excel
21 сообщений из 21, страница 1 из 1
Преобразование значений таблицы Excel
    #33106902
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Есть такая задачка.

Есть таблица:

11103 1001211103 1139111103 1133111143 1110111143 1137211143 1113211143 1119111151 1114211151 105

Мне надо, чтобы получилась таблица следующего вида.

11103 10012 11391 1133111143 11101 11372 11132 1119111151 11142 105

Думал, что с помощью сводной таблицы можно, но желаемого результата не получилось. Кто подскажет, как можно реализовать?
...
Рейтинг: 0 / 0
08.06.2005, 12:21:01
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33107519
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Все. Рано или поздно я бы реализовал. Просто начальник каждые пять минут спрашивал сделал я или нет. Я подумал, что кто-то решал подобную задачу, чтобы мне не тратить время на изобретение велосипеда.

Сделал так:

1. Экспортировал данные в Access.
2. Сделал запрос с группировкой по двум этим столбцам, чтобы избежать повторений.
3. Скопировал результат запрос в Excel.
4. Сделал сводную диаграмму (в данных постовил сумму по 2-му столбцу, т.к. повторений нет, то пишутся исходные значения).
5. Скопировал данные в отдельный лист.
6. Написал макрос, которые удаляет пустые учейки со сдвигом влево, чтобы подтянуть данные.

Вот и все.
...
Рейтинг: 0 / 0
08.06.2005, 15:47:13
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33107551
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
на будущее - функция ТРАНСП()

(VBA: VorksheetFunction.Transpose)

вариант с функцией массива в листе приложен
...
Рейтинг: 0 / 0
08.06.2005, 15:58:32
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33107617
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Victosha , спасибо. Я подозревал, что в Excel должна быть такая функция. На будущее буду знать.
...
Рейтинг: 0 / 0
08.06.2005, 16:25:34
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33108205
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
прошу прощения, это я не на тот вопрос отвечал.
виноват, поторопился.

по теме тут ближе всего сводная таблица.
либо явно макрос рисовать на заполнения.
он простой получится.
...
Рейтинг: 0 / 0
08.06.2005, 21:34:26
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33108430
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Victoshaпрошу прощения, это я не на тот вопрос отвечал.
виноват, поторопился.

по теме тут ближе всего сводная таблица.
либо явно макрос рисовать на заполнения.
он простой получится.

Я вообщем-то так и сделал. Сводная таблица + макрос.
...
Рейтинг: 0 / 0
09.06.2005, 08:42:08
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33108615
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Victosha, по поводу транспонирования. Можно обойтись без формулы, а просто скопировать столбец и сделать специальную вставку.
...
Рейтинг: 0 / 0
09.06.2005, 10:07:36
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33108827
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
И еще вопрос у меня есть табличка со следующими данными:

11202 11211 11213 1137111212 11351 11353

Делаю специальную вставку "Пропускать пустые ячейки", но все остается также. В чем проблема?

А при выполнении такого кода:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim rng As Range
    Dim cel As Range
    Set rng = Selection

    For Each cel In rng
        If cel.Value = "" Then
            cel.Delete Shift:=xlToLeft
        End If
    Next cel

Получается:

11202 11211 11213 1137111212 11351 11353

Т.е. удаляются не все пустые ячейки. Может надо еще какое-нибудь условие с Offset прописать. Кто подскажет?
...
Рейтинг: 0 / 0
09.06.2005, 11:09:53
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33110694
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
Если я на этот раз правильно понял "задачу", то решение (с точностью до деталей оформления)
может быть таким:

Код: plaintext
1.
2.
3.
4.
 Dim tArea As Excel.Range
  
  For Each tArea In Application.ActiveWindow.Selection
    tArea.SpecialCells(xlCellTypeBlanks).Delete xlShiftToLeft
  Next


(может быть можно быстрее, а вот красивее - вряд ли)

что же до For Each - то, с чем ты столкулся - это стандартная особенность реализации.
Некоторые склонны считать ее багом.
В любом случае, - не надо использовать For Each в комбинации с методами
манипулирования составом коллекции (добавления/удаления элементов).
Это будет работать не так, как хотелось бы, во всех случаях применения.
...
Рейтинг: 0 / 0
09.06.2005, 23:48:04
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33110855
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Да, Victosha, это то что нужно. Но одно но, это получается бесконечный цикл.

Как я понял. Сдвигает все правильно, но в выделенном диапазоне в конце остаются пустые ячейки и из-за этого получается бесконечный цикл из которого можно выйти только по CTRL+BREAK. Как можно обойти такое зацикливание?
...
Рейтинг: 0 / 0
10.06.2005, 08:36:08
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33110864
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Сам отвечу (надо добавить Выход в цикл):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim cel As Range
    Dim rng As Range

    Set rng = Selection

    For Each cel In rng
        cel.SpecialCells(xlCellTypeBlanks).Delete xlShiftToLeft
        Exit Sub
    Next cel
...
Рейтинг: 0 / 0
10.06.2005, 08:40:52
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33110974
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
Да нет - все гораздо хуже.
Там опять очепятка ...

идея такая была:

Dim tArea As Excel.Range

For Each tArea In Application.ActiveWindow.Selection.Areas
tArea.SpecialCells(xlCellTypeBlanks).Delete xlShiftToLeft
Next

да по дороге потерялась...
...
Рейтинг: 0 / 0
10.06.2005, 09:37:47
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33110995
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Код: plaintext
1.
2.
    For Each cel In rng.Areas
        cel.SpecialCells(xlCellTypeBlanks).Delete xlShiftToLeft
    Next cel

Отрабатывает как надо.

Victosha , спасибо, красивое решение, а то цикл

Код: plaintext
1.
2.
3.
4.
    For Each cel In rng
        If cel.Value = "" Then
            cel.Delete Shift:=xlToLeft
        End If
    Next cel

приходилось раз 5 выполнить, чтобы все "подтянуть".
...
Рейтинг: 0 / 0
10.06.2005, 09:45:59
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33123004
pashulka.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pashulka.
Гость
А зачем вообще цикл применять … ведь для решения Вашей задачи достаточно :

Selection.SpecialCells(xlBlanks).Delete xlShiftToLeft
...
Рейтинг: 0 / 0
18.06.2005, 07:42:38
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33123924
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
pashulka.А зачем вообще цикл применять … ведь для решения Вашей задачи достаточно :

Selection.SpecialCells(xlBlanks).Delete xlShiftToLeft

Да, ты прав. Без цикла будет лучше и правильнее.
...
Рейтинг: 0 / 0
20.06.2005, 08:50:19
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33129503
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
Пользователь2 pashulka.А зачем вообще цикл применять … ведь для решения Вашей задачи достаточно :

Selection.SpecialCells(xlBlanks).Delete xlShiftToLeft

Да, ты прав. Без цикла будет лучше и правильнее.

я рисовал цикл, чтобы иметь возможность обрабатывать множество
выделенных несвязанных диапазонов. А ты зачем?
...
Рейтинг: 0 / 0
22.06.2005, 16:49:53
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33129516
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Я рисовал цикл, чтобы проверять пуста ли ячейка в заданном диапазоне и удалять ее в случае, если она является таковой.
...
Рейтинг: 0 / 0
22.06.2005, 16:54:11
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33129816
pashulka.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pashulka.
Гость
Даже если нужно обрабатывать несколько выделенных несмежных диапазонов ячеек, то и в этом случае цикл не нужен, достаточно просто : Selection.SpecialCells(xlBlanks).Delete xlToLeft
...
Рейтинг: 0 / 0
22.06.2005, 18:40:58
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33130350
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
pashulka.Даже если нужно обрабатывать несколько выделенных несмежных диапазонов ячеек, то и в этом случае цикл не нужен, достаточно просто : Selection.SpecialCells(xlBlanks).Delete xlToLeft

типа - лень попробовать, прежде чем писать?
и со мной так бывает...
...
Рейтинг: 0 / 0
23.06.2005, 09:39:21
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33130389
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
Victosha pashulka.Даже если нужно обрабатывать несколько выделенных несмежных диапазонов ячеек, то и в этом случае цикл не нужен, достаточно просто : Selection.SpecialCells(xlBlanks).Delete xlToLeft

типа - лень попробовать, прежде чем писать?
и со мной так бывает...

так и сейчас случилось. (со мной)
...
Рейтинг: 0 / 0
23.06.2005, 09:58:35
| Ответить | Цитировать | Написать  
Преобразование значений таблицы Excel
    #33131011
pashulka.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pashulka.
Гость
To Victosha
Значит мир, дружба и много пива
...
Рейтинг: 0 / 0
23.06.2005, 12:46:36
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразование значений таблицы Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33106902&tid=2185977]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 39ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 200ms
total:  323ms
созд. / загр.: 323ms
x
x
Закрыть


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