|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.03.2010, 02:48 | #1 |
Регистрация: 20.03.2010
Сообщений: 3
|
Диапазон раскидать по ячейкам
Здавствуйте, бью голову, не знаю как сделать!
есть ячейка ввида '55-59', можно ли как-то сделать последовательность целых чисел начаная с 55 и заканчивая max и записать в ячейки т.е. в итоге должно получиться: 55 56 57 58 59. и еще вопрос, можно ли программно на VBA транспонировать строку(если есть примерчик, было бы замечательно) Спасибо заранее! |
20.03.2010, 03:36 | #2 |
Регистрация: 14.03.2010
Сообщений: 6
|
По первому вопросу можно формулой массива, со всеми проверками:
=ЕСЛИ((ПСТР($A$1;ПОИСК("-";$A$1)+1;10)-ПСТР($A$1;1;ПОИСК("-";$A$1)-1)+1)<СТРОКА(A1);"";НАИМЕНЬШИЙ(СТРО КА(ИНДЕКС(A:A;ПСТР($A$1;1;ПОИСК("-";$A$1)-1)):ИНДЕКС(A:A;ПСТР($A$1;ПОИСК("-";$A$1)+1;10)));СТРОКА(A1))) и растянуть вниз |
20.03.2010, 09:35 | #3 |
Пользователь
Регистрация: 01.03.2010
Сообщений: 25
|
транспонирование
Sub Макрос1() Range("A1:A22").Copy Range("A33").PasteSpecial Transpose:=True End Sub это не я такой умный просто макрорекордер дал такой результат, ты бы тоже смог Последний раз редактировалось deni1982; 20.03.2010 в 11:16. |
20.03.2010, 11:22 | #4 |
Пользователь
Регистрация: 08.06.2009
Сообщений: 68
|
Так лаконичнее:
Sub Макрос() Range("A3:A18").Copy Range("B3").PasteSpecial Paste:=xlPasteValues, Transpose:=True Application.CutCopyMode = False End Sub |
20.03.2010, 11:35 | #5 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
Код:
|
20.03.2010, 12:00 | #6 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
и еще вариант(ы) формул, которые разбросают элементы диапазона Х-У по ячейкам в строке или в колонке.
Оцените компактность формулы.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
20.03.2010, 12:17 | #7 |
Регистрация: 14.03.2010
Сообщений: 6
|
Производительность тоже иногда имеет значение
|
20.03.2010, 23:31 | #8 |
Регистрация: 20.03.2010
Сообщений: 3
|
Всем откикнувшимся огромное СПАСИБО,
осталось только скомпоновать мне все в VBA |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Раскидать изображения по странице | Laita | HTML и CSS | 3 | 31.08.2009 17:07 |
раскидать таблички Excel на страницу в Word | TayfooN | Microsoft Office Excel | 3 | 28.03.2009 16:54 |
Как написать в коде чтобы диапазон А копировался как значение в диапазон В. | Dorvir | Microsoft Office Excel | 12 | 23.05.2008 22:11 |
Раскидать сборки по станциям - Интересно! | jungo | Microsoft Office Excel | 2 | 20.05.2008 13:19 |
как раскидать сгруппированные данные из одного стобца по нескольким | hudoi | Microsoft Office Excel | 2 | 07.02.2007 23:42 |