Страница 1 из 1
макрос копирующий форматы
Добавлено: 13 апр 2009, 16:46
schatun
Ситуация такая
В столбце "F" идет 11 стран
Теже страны перечислены в столбцах начиная с"M" по"W"
И все что в столбце "J" с помощью формулы или макроса после выполнения должно распределиться по странам в столбцах начиная с"M" по"W"
Re: макрос копирующий форматы
Добавлено: 13 апр 2009, 17:43
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
Re: макрос копирующий форматы
Добавлено: 13 апр 2009, 18:58
schatun
Форматы отобразились как надо
Посмотрите как теперь применить макрос в реальных условиях
Условия и столбцы теже
P.S
Допустим если страна в строке (столбца "F") и страна в столбце (с "M" по "W" ) совпадает , мы туда отправляем копию ЯЧЕЙКИ
из столбца "J"
--------------------------------------------------------------------------------
Добавленное сообщение
--------------------------------------------------------------------------------
Посмотрите пример