Страницы: 1
RSS
Копирование данных одной ячейки и их вставка во множество ячеек с префиксом счета по порядку., Прошу помощи
 
Уважаемые форумчане, прошу Вашей помощи в подсказке макроса.
Требуется скопировать данные из конкретных ячеек и вставить их во множество ячеек вниз по соседнему столбцу, добавив к вставляемым данным префикс счета по порядку.
Описанием точно смысла не выразить, посему более понятная задача в примере.
К Вам с надеждой на спасение!

PS. Если кто согласится помочь, прокомментируйте код пожалуйста, что бы я поняла принцип, если не затруднит!
 
А формула не пойдет?
=ЕСЛИ(B7="";"";ЕСЛИ(B6="";B7;ЕСЛИОШИБКА(ЛЕВБ(C6;ПОИСК("_";C6)-1)&"_"&ПСТР(C6;ПОИСК("_";C6)+1;3)+1;C6&"_2")))
 
Вообще то и пойдет... правда ее придеться все равно встроить в макрос, так как это задача часть кода обработки материала.
Если нету решения кодом, то как вариант очень да же. Спасибо большое!
 
Скрытый текст

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Лариса, если использовать формулу в макросе - это решение кодом или нет? :)
Код
1
2
3
4
5
6
Sub bb()
  With Range("C7", Cells(Rows.Count, "B").End(xlUp).Offset(, 1))
    .FormulaR1C1 = "=IF(RC[-1]="""","""",IF(R[-1]C[-1]="""",RC[-1],IFERROR(LEFTB(R[-1]C,SEARCH(""_"",R[-1]C)-1)&""_""&MID(R[-1]C,SEARCH(""_"",R[-1]C)+1,3)+1,R[-1]C&""_2"")))"
    .Value = .Value
  End With
End Sub
 
Большое спасибо ребята! каждый из вариантов работает прекрасно!
Страницы: 1
Читают тему
Loading...