В столбце С есть названия организаций. Нужна формула, которая проставить значение ИП ИВАНОВ и ИП ВАСИЛЬЕВ в нижних строчках, после значения ООО "РОМАШКА". Подскажите пожалуйста
В столбце С есть названия организаций. Нужна формула, которая проставить значение ИП ИВАНОВ и ИП ВАСИЛЬЕВ в нижних строчках, после значения ООО "РОМАШКА". Подскажите пожалуйстаaim81
А долгий ли процесс написания макроса и последующего добавления его? Ранее не имел опыт работы с ними (макросами). Мне просто надо обработать почти 3000 строк. Поэтому решил прибегнуть к помощи знающих людей.
А долгий ли процесс написания макроса и последующего добавления его? Ранее не имел опыт работы с ними (макросами). Мне просто надо обработать почти 3000 строк. Поэтому решил прибегнуть к помощи знающих людей.
А долгий ли процесс написания макроса и последующего добавления его?
Думаю местным гуру недолго. Я сам в VBA полный ноль, но здесь очень часто помогали. Немного подождите и точно помогут, как освободятся и заинтересуются.
А долгий ли процесс написания макроса и последующего добавления его?
Думаю местным гуру недолго. Я сам в VBA полный ноль, но здесь очень часто помогали. Немного подождите и точно помогут, как освободятся и заинтересуются.DrMini
Прошу прощения прочитал Вашу задачу навскидку и понял что надо проставить как значение соответствующих участников их количество... мой способ не подойдет, надо искать выборку или разделение текста...
Прошу прощения прочитал Вашу задачу навскидку и понял что надо проставить как значение соответствующих участников их количество... мой способ не подойдет, надо искать выборку или разделение текста...alexa1965
Sub u_913() Application.ScreenUpdating = False a = Cells(Rows.Count, "c").End(xlUp).Row b = "ООО ""РОМАШКА""" c = Application.CountIf(Range("c1:c" & a), b & "*") f = 1 For d = 1 To c e = Application.Match(b & "*", Range("c" & f & ":c" & a), 0) f = f + e Range("c" & f) = "ИП ИВАНОВ" Range("c" & f + 1) = "ИП ВАСИЛЬЕВ" Next Application.ScreenUpdating = True End Sub
[/vba]вдруг правильно
[vba]
Код
Sub u_913() Application.ScreenUpdating = False a = Cells(Rows.Count, "c").End(xlUp).Row b = "ООО ""РОМАШКА""" c = Application.CountIf(Range("c1:c" & a), b & "*") f = 1 For d = 1 To c e = Application.Match(b & "*", Range("c" & f & ":c" & a), 0) f = f + e Range("c" & f) = "ИП ИВАНОВ" Range("c" & f + 1) = "ИП ВАСИЛЬЕВ" Next Application.ScreenUpdating = True End Sub
Спасибо большое! Помогли! Правда теперь надо разбираться как Вы это составили, что бы под свои значения это дело применить. В любом случае огромная благодарность!
Спасибо большое! Помогли! Правда теперь надо разбираться как Вы это составили, что бы под свои значения это дело применить. В любом случае огромная благодарность!aim81