Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Найти на одном листе, заменить с другого, Множественный поиск с заменой
 
Добрый вечер, товарищи знатоки.
Попал в трудную ситуацию, с Excel работаю недавно.

[b]Имеется:[/b]
Excel 2010, Win7.
1) Лист1, на котором не упорядоченно, в разных столбцах и строках находятся ячейки с уникальными текстовыми значениями.
2) Лист2, где уникальные текстовые значения из Листа1 упорядочены в столбце и имеют одно из нескольких шаблонных форматирований (не условное)
[b]Задача:[/b] применить форматирование ячеек из Листа2 к соответствующим по значению ячейкам на Листе1.
Вручную сделать возможно, но долго, так как уникальных значений более 1000.
Как я вижу [b]возможный логический путь:[/b]
Индексирование ячейки в Листе1 по значению из Листа2, запись адреса в соседний столбец на Листе2. Потом копирование ячейки по адресу.
Смотрел варианты решения с ИНДЕКС, ВПР и ЕСЛИ, всё упирается в неупорядоченность ячеек по столбцам и строкам.
Думал, что можно через запись макроса, но Excel отказался записывать в макрос поиск по Ctrl+F.

Буду рад если не решению, то идеям по частичной автоматизации поиска для ручного копирования формата.
Упрощенная модель задания - в приложении.
Надеюсь, задача не банальная, не очень скучная. :)
Заранее спасибо.
 
Цитата
Chi пишет:
Задача: применить форматирование ячеек из Листа2 к соответствующим по значению ячейкам на Листе1.
Уточните - что должно включать в себя форматирование?
 
Код
Sub t()
  For Each c In Sheets(1).UsedRange.Cells
    If Not IsEmpty(c) Then
      Set r = Sheets(2).[a:a].Find(what:=c.Value, lookat:=xlWhole)
      If Not r Is Nothing Then
        r.Copy
        c.PasteSpecial xlPasteFormats
      End If
    End If
  Next
End Sub
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
Цитата
Юрий М пишет: Уточните - что должно включать в себя форматирование?
Простите, не уточнил. Шрифт, цвет текста, цвет заливки, центрирование, рамка.
Цитата
ikki пишет: код
Большое спасибо, работает. Буду учить VBA  :)  

Всем заинтересовавшимся спасибо и плюс в карму.
Страницы: 1
Читают тему (гостей: 1)
Наверх