Макрос копирующий форматы 2

[olimpus]

Здравствуйте
Помогите создать макрос
Макрос нужен как воздух
Условное форматирование не подходит , потомучто ячейка может принимать до 15 видов форматов
Условия такие:
В столбце "В" идут в разнообразном порядке укороченые названия стран
Этих стран 11:
США США
Япон. Япония
Великоб. Великобритания
EC Eвропейский Cоюз
Герм. Германия
Фран. Франция
Итал. Италия
Швейц. Швейция
Австрал. Австралия
Н. Зеланд. Новая Зеландия
Канада Канада

В поле столбцов начиная с "I" по "S" в заголовках стоят теже укороченные названия 11 стран но только по порядку

Действия нужно производить в таком порядке
Начинаем с ячейки "В2 " там страна Япония , далее идем по строке в поле столбцов с "I" по "S" и ищем в заголовках страну японию
После того как нашли , копируем в ячейку "J2 " ячейку "F2 "
тоесть как бы создаем образ в столбцах с "I" по "S"

[EducatedFool]

Макрос нужен как воздух

Обязательно макрос?
В данном случае формумы подходят куда лучше...

И прикрепите файл с таблицей (если не хотите получить решение тоже в виде скриншота)

[olimpus]

тоже самое в ехеl

[EducatedFool]

Да формула-то простейшая:

  Ячейка: I2      Формула  (стиль A1):   =ЕСЛИ(I$1=$B2;$F2;"")
                  Формула  (стиль R1C1): =ЕСЛИ(R1C=RC2;RC6;"")

А вот и пример:

[olimpus]

Я может конечно чтото не понял , но нужны форматы (цвет) и значения
а идею вы поняли правильно

[EducatedFool]

Ну, макрос так макрос:

Sub Заполнение()
    Dim cell As Range: Application.ScreenUpdating = False
    Очистка
    For Each cell In [Ячейки]
        If cell.EntireRow.Cells(2) = cell.EntireColumn.Cells(1) Then
            cell.EntireRow.Cells(6).Copy cell
        End If
    Next cell
End Sub

Sub Очистка()
    [Ячейки].Clear
End Sub

[olimpus]

все работает просто идеально
но только список стран будет постоянно пополняться вниз
а мокрос раьотает только на 25 строк

[EducatedFool]

а мокрос раьотает только на 25 строк

А это не обговаривалось в условии задачи...

Макрос обрабатывает именованный диапазон Ячейки
Изменить границы этого диапазона можно через меню Вставка - Имя - Присвоить

[olimpus]

Спасибо .разберусь