Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразование значений таблицы Excel / 21 сообщений из 21, страница 1 из 1
08.06.2005, 12:21:01
    #33106902
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование значений таблицы Excel
Есть такая задачка.

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

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, 15:47:13
    #33107519
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование значений таблицы Excel
Все. Рано или поздно я бы реализовал. Просто начальник каждые пять минут спрашивал сделал я или нет. Я подумал, что кто-то решал подобную задачу, чтобы мне не тратить время на изобретение велосипеда.

Сделал так:

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

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

(VBA: VorksheetFunction.Transpose)

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

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

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

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

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, 23:48:04
    #33110694
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование значений таблицы Excel
Если я на этот раз правильно понял "задачу", то решение (с точностью до деталей оформления)
может быть таким:

Код: 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
| Ответить | Цитировать | Написать  
10.06.2005, 08:36:08
    #33110855
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование значений таблицы Excel
Да, Victosha, это то что нужно. Но одно но, это получается бесконечный цикл.

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

Код: 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, 09:37:47
    #33110974
Victosha
Victosha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование значений таблицы Excel
Да нет - все гораздо хуже.
Там опять очепятка ...

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

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:45:59
    #33110995
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование значений таблицы Excel
Код: 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
| Ответить | Цитировать | Написать  
18.06.2005, 07:42:38
    #33123004
pashulka.
pashulka.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование значений таблицы Excel
А зачем вообще цикл применять … ведь для решения Вашей задачи достаточно :

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

Selection.SpecialCells(xlBlanks).Delete xlShiftToLeft

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

Selection.SpecialCells(xlBlanks).Delete xlShiftToLeft

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

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

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

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

так и сейчас случилось. (со мной)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2005, 12:46:36
    #33131011
pashulka.
pashulka.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Преобразование значений таблицы Excel
To Victosha
Значит мир, дружба и много пива
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Преобразование значений таблицы Excel / 21 сообщений из 21, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 370ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185977]:
 0ms
get settings:
 8ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 53ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 70ms
get tp. blocked users:
 2ms
others: 196ms
total:  370ms
x
x
Закрыть


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