Страницы: 1
RSS
Продублировать ссылку
 
Прошу помощи в создании формулы.
Есть около 2000 строк вида:
Код
<a href=""http://batalux.ru/uploads/catalog/640x640/pic17834.jpg""><img src="""" alt=""spec96-1-3728139"" width=""20"" height=""20"" class=""alignnone size-thumbnail wp-image-39"" /></a>

Нужно продублировать ссылку в ковычки img src="""", что бы в итоге получить:
Код
<a href=""http://batalux.ru/uploads/catalog/640x640/pic17834.jpg""><img src=""http://batalux.ru/uploads/catalog/640x640/pic17834.jpg"" alt=""spec96-1-3728139"" width=""20"" height=""20"" class=""alignnone size-thumbnail wp-image-39"" /></a>"

Каждая стройка имеет свою уникальную ссылку.
 
Код
Sub uuu()
    Dim x&, y&
    Dim img$
'-------------
    For Each cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        x = InStr(cel, """""") + 2
        y = InStr(x, cel, """""")
        img = Mid(cel, x, y - x)
        cel = Replace(cel, """""""""", """""" & img & """""")
    Next
End Sub
 
Код
=СЦЕПИТЬ(ЛЕВСИМВ(A1;НАЙТИ("<img src=";A1)+10);ПСТР(A1;НАЙТИ("""";A1)+2;НАЙТИ("""";A1;НАЙТИ("""";A1)+2)-НАЙТИ("""";A1)-2);ПСТР(A1;НАЙТИ("<img src=";A1)+11;100))
С уважением,
Федор/Все_просто
 
Не копирует...  
Изменено: next-13 - 19.04.2015 19:01:51
 
next-13, кнопка цитирования не для ответа.
Страницы: 1
Наверх