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

[schatun]

Ситуация такая
В столбце "F" идет 11 стран
Теже страны перечислены в столбцах начиная с"M" по"W"
И все что в столбце "J" с помощью формулы или макроса после выполнения должно распределиться по странам в столбцах начиная с"M" по"W"

[Aent]

Код: Выделить всё

Public Sub SpecTrans()
     Dim n As Long
     Dim i As Long
     'n = Cells(Cells.Rows.Count, 6).End(xlUp).Row
     n = 12
     For i = 2 To n
          Cells(i, 10).Copy Cells(i, 11 + i)
     Next i
End Sub

[schatun]

Форматы отобразились как надо
Посмотрите как теперь применить макрос в реальных условиях
Условия и столбцы теже
P.S
Допустим если страна в строке (столбца "F") и страна в столбце (с "M" по "W" ) совпадает , мы туда отправляем копию ЯЧЕЙКИ
из столбца "J"
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
Посмотрите пример