Как я это вижу: Колонки: 30/31/32/33/34/35/36 В них, зависимости от того что в ячейке колонки №2 (например U0060068) В колонку 30, соответствующей ячейки создается адрес: http://сайт/static/images/prod_img/ далее сюда подставляется цифра 6 из кода, слеш /, цифра 8 из кода, слеш /, подставляется все значение ячейки с колонки 2, нижнее подчеркивание _big.jpg .... В колонки 31-36 все тоже самое, за исключением последней вставки., т.е. оно должно быть: _2big.jpg,_3big.jpg,_4big.jpg,_5big.jpg,_6big.jpg.
Формулами - я замучился вырисовывать, может можно какой макрос придумать?
Как я это вижу: Колонки: 30/31/32/33/34/35/36 В них, зависимости от того что в ячейке колонки №2 (например U0060068) В колонку 30, соответствующей ячейки создается адрес: http://сайт/static/images/prod_img/ далее сюда подставляется цифра 6 из кода, слеш /, цифра 8 из кода, слеш /, подставляется все значение ячейки с колонки 2, нижнее подчеркивание _big.jpg .... В колонки 31-36 все тоже самое, за исключением последней вставки., т.е. оно должно быть: _2big.jpg,_3big.jpg,_4big.jpg,_5big.jpg,_6big.jpg.
Формулами - я замучился вырисовывать, может можно какой макрос придумать?
Dim rng As Range, el As Range, Row_Last As Long Set rng = ActiveSheet.Columns(2).SpecialCells(xlCellTypeConstants)
Dim x As Long For Each el In rng With el .Offset(0, 28).Value = "http://site/static/images/prod_img/" _ & Left$(Right$(.Value, 2), 1) & "/" & Right$(.Value, 1) & _ "/" & .Value & "_big.jpg"
For x = 2 To 6 .Offset(0, 27 + x).Value = "http://site/static/images/prod_img/" _ & Left$(Right$(.Value, 2), 1) & "/" & Right$(.Value, 1) & _ "/" & .Value & "_" & x & "big.jpg" Next
Dim rng As Range, el As Range, Row_Last As Long Set rng = ActiveSheet.Columns(2).SpecialCells(xlCellTypeConstants)
Dim x As Long For Each el In rng With el .Offset(0, 28).Value = "http://site/static/images/prod_img/" _ & Left$(Right$(.Value, 2), 1) & "/" & Right$(.Value, 1) & _ "/" & .Value & "_big.jpg"
For x = 2 To 6 .Offset(0, 27 + x).Value = "http://site/static/images/prod_img/" _ & Left$(Right$(.Value, 2), 1) & "/" & Right$(.Value, 1) & _ "/" & .Value & "_" & x & "big.jpg" Next