![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 05.01.2011
Сообщений: 32
|
![]()
Здравствуйте Нужно строки (не пустые) с листа prn2 перенести на лист prn3 скопировав их,если возможно и по значению в колонке А в порядке возрастания. Важно скорость.Файл прилагается.Спасибо. Есть у меня решение, но по скорости решения меня не устраивает, чем больше строк в листе тем медленнее работает перенос. Если можно Макрос для решения подобной задачи.Спасибо.
|
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
Насчёт сортировки не понял.
Без сортировки быстро можно было бы так, если поудалять все ненужные пробелы в пустых с виду ячейках (на обоих листах): Код:
Но как работать с такими пробелами - я не нашёл быстрого варианта. Разве что через массив, без форматов. Тогда можно и сотрировку массива перед выгрузкой сделать - но это много кода писать нужно... Если делать копированием, то сортировку может быть можно добавить после выгрузки всему диапазону (или только выгруженному) или перед копированием источнику - сделать средствами Экселя, добавить в макрос.
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 12.11.2011 в 14:56. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 05.01.2011
Сообщений: 32
|
![]()
Привет не работает. This command will stop the debugder Set r = r.ColumnDifferences(x) Можно в файле прислать ответ
|
![]() |
![]() |
![]() |
#4 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
![]()
У Вас в примере в порядке убывания, Вы уж определитесь. И где же Ваше решение? Вижу только гору мусора в проекте ВБА.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
![]() |
![]() |
![]() |
#5 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
![]()
Привет, Игорь. Я что-то пропустил? Вижу у Вас какой-то междусобойчик тут, файлов нет, а что-то обсуждаете:-)
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
Привет, Сергей.
Да я там на этих пробелах споткнулся... Вот вариант в файле, пробелы на первом листе убрал, на втором не убирал. Как сделать без массивов на неизменённом оригинальном файле - не знаю... Разве что сперва кодом чистить...
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
#7 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
![]()
Понятно. Там по-любому надо в файле порядок наводить.
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 26.04.2010
Сообщений: 450
|
![]()
без сортировки, как понял
Код:
Тишина – самый громкий звук
|
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
![]()
Вот же - SpecialCells(2, 1)
![]() А я там огород городил... Тогда похоже так работает, без сортировки: Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 12.11.2011 в 15:49. |
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 05.01.2011
Сообщений: 32
|
![]()
Еще раз привет всем. Если в ячейке задана формула, то данный макрос не работает. Смотрите файл со вложением.
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автоматический перенос строк из одного листа в другой | dom_sveta | Microsoft Office Excel | 13 | 09.04.2020 20:04 |
перенос строк с одного листа на другой при заданном условии | dedelev | Microsoft Office Excel | 2 | 11.01.2011 12:47 |
Автоматический перенос строк из одного листа в другой лист Результат | maksvas | Microsoft Office Excel | 4 | 22.10.2010 14:03 |
При условии перенос строк из одного листа в другой | Ilya_L | Microsoft Office Excel | 5 | 19.06.2010 06:15 |
перенос значений с одного листа на другой | ANDREEY | Помощь студентам | 2 | 10.02.2009 23:22 |