Есть громадная таблица ссылок, в екселе. Вопрос: Некоторые ячейки в столбце содержат следующую надпись: Мне нужна формула, которая при копировании столбца А в столбец В - ячейки с таким наименованием [addProduct] - копировать НЕ будут http://www.site.ua/basket/addProduct?id=106608 http://www.site.ua/basket/addProduct?id=106607 http://www.site.ua/basket/addProduct?id=106605 http://www.site.ua/basket/addProduct?id=106603
А некоторые: (эти не трогаем) http://www.site.ua/kotel-hazovyj-bosch-wbn-6000-24c-rn-wbn-6000-24c-rn/106608.html http://www.site.ua/kotel-hazovyj-bosch-wbn-6000-24c-rn-wbn-6000-24c-rn/106608.html
Есть громадная таблица ссылок, в екселе. Вопрос: Некоторые ячейки в столбце содержат следующую надпись: Мне нужна формула, которая при копировании столбца А в столбец В - ячейки с таким наименованием [addProduct] - копировать НЕ будут http://www.site.ua/basket/addProduct?id=106608 http://www.site.ua/basket/addProduct?id=106607 http://www.site.ua/basket/addProduct?id=106605 http://www.site.ua/basket/addProduct?id=106603
А некоторые: (эти не трогаем) http://www.site.ua/kotel-hazovyj-bosch-wbn-6000-24c-rn-wbn-6000-24c-rn/106608.html http://www.site.ua/kotel-hazovyj-bosch-wbn-6000-24c-rn-wbn-6000-24c-rn/106608.htmlwwizard
Никакой формулой пока не пытался, не могу придумать как ее прописать правильно, чтобы он слева направо копировал только ссылки такого вида: http://www.site.ua/kotel-hazovyj-bosch-wbn-6000-24c-rn-wbn-6000-24c-rn/106608.html http://www.site.ua/barbekju-cadac-entertainer-deluxe-6001773083515/116648.html http://www.site.ua/skamja-dlja-pressa-kettler-lineo-7428-550-7428-550/70181.html
Никакой формулой пока не пытался, не могу придумать как ее прописать правильно, чтобы он слева направо копировал только ссылки такого вида: http://www.site.ua/kotel-hazovyj-bosch-wbn-6000-24c-rn-wbn-6000-24c-rn/106608.html http://www.site.ua/barbekju-cadac-entertainer-deluxe-6001773083515/116648.html http://www.site.ua/skamja-dlja-pressa-kettler-lineo-7428-550-7428-550/70181.htmlwwizard
Sub tt() Dim I As Long, J As Long J = 1 For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row If InStr(Cells(I, 1), "addProduct") = 0 Then Cells(J, 2) = Cells(I, 1) J = J + 1 End If Next End Sub
[/vba]
Проще всего макросом, мне кажется [vba]
Код
Sub tt() Dim I As Long, J As Long J = 1 For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row If InStr(Cells(I, 1), "addProduct") = 0 Then Cells(J, 2) = Cells(I, 1) J = J + 1 End If Next End Sub