|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.11.2011, 21:26 | #1 |
Пользователь
Регистрация: 12.11.2011
Сообщений: 27
|
Поиск и копирование диапазона
Здравствуйте. В написании макросов делаю первые шаги. Столкнулся с проблемой в написании скрипта:
Код:
(x.Offset(0, -3),y.Offset(0,3),y.Offset(0,4), y.Offset(0,5)) на другой лист |
16.11.2011, 23:12 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Код-то исправить и ускорить не проблема, вот только не понял одного:
идёт цикл For Each y In CompareRange если нашли совпадение - копируем данные в определённую ячейку OriginalRange с этим всё понятно, но: если в CompareRange найдено НЕСКОЛЬКО совпадений, то код будет записывать данные из следующих совпадений поверх уже записанных данных Так и надо? или совпадений несколько быть не может? строка (x.Offset(0, -3),y.Offset(0,3),y.Offset(0,4), y.Offset(0,5)) вообще не понятна... И ещё - надо копировать ячейки вместе с форматированием, или только значения? Попробуйте такой код (копирование вместе с форматированием ячеек): Код:
Код:
|
16.11.2011, 23:20 | #3 | ||
Пользователь
Регистрация: 12.11.2011
Сообщений: 27
|
Цитата:
Цитата:
|
||
16.11.2011, 23:25 | #4 |
Пользователь
Регистрация: 12.11.2011
Сообщений: 27
|
Спасибо Получилось.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Копирование выделенного диапазона | 6306617 | Microsoft Office Excel | 7 | 24.03.2011 15:49 |
копирование выделенного диапазона после скрытия ненужных столбцов и последующей фильтрации | Алабор | Microsoft Office Excel | 2 | 15.03.2011 15:31 |
Копирование диапазона в другую книгу в цикле | Drummer_SV | Microsoft Office Excel | 2 | 22.12.2010 11:27 |
Копирование динамического диапазона | vik85 | Microsoft Office Excel | 3 | 27.06.2010 14:40 |
Копирование части диапазона с шагом | valerij | Microsoft Office Excel | 5 | 08.12.2009 17:53 |