Как удалить текст между запятыми в Excel?

Question

[Даулет]

Добрый день, есть у меня Excel файл в котором есть столбик с ссылками на фотографии(выгруженный xml файл). Там от 2 и более фотографий(иногда доходит до 10 фотографий). Все они выделяются через запятую, как оставить только 3 фотографии на каждую строку. Может есть какие ни будь регулярные выражения с помощью которого можно быстро все это реализовать?
Исходная строка:

https://img.ltwebstatic.com/images3_pi/2021/04/07/16177590108b24ec30623f656ba09b7fb320716437.jpg, https://img.ltwebstatic.com/images3_pi/2021/04/07/161775901290753738d0109745d7969ecfe920e536.jpg, https://img.ltwebstatic.com/images3_pi/2021/04/07/16177590173ff7a09ed8bd937f8a3f5d967dcb7f98.jpg, https://img.ltwebstatic.com/images3_pi/2021/04/07/16177590193f249e9d4730f68290be20424cd3bb0b.jpg

Должно остаться так:

https://img.ltwebstatic.com/images3_pi/2021/04/07/16177590108b24ec30623f656ba09b7fb320716437.jpg, https://img.ltwebstatic.com/images3_pi/2021/04/07/161775901290753738d0109745d7969ecfe920e536.jpg, https://img.ltwebstatic.com/images3_pi/2021/04/07/16177590173ff7a09ed8bd937f8a3f5d967dcb7f98.jpg

Скрины:
https://i.yapx.ru/N0wqQ.png
https://yapx.ru/v/N0wqK

Comments

[Krasnoarmeec]

Вам формулой (длиннее), или VBA (проще и короче) тоже подойдёт?

[Даулет]

Krasnoarmeec, и так и так сойдет) честно не разбираюсь в VBA и как он работает)

Answer 1

[Krasnoarmeec]

Отредактировал табличку и функцию:
https://disk.yandex.ru/i/v8qfHFA-gnRBFQ

Public Function TakeFirstThreeReferences(inReference As String) As String
    Dim tmpStrings() As String
    
    TakeFirstThreeReferences = ""
    
    tmpStrings = Split(inReference, ", ")
    
    If UBound(tmpStrings) = 0 Then
        TakeFirstThreeReferences = tmpStrings(0)
    End If
    
    
    If UBound(tmpStrings) = 1 Then
        TakeFirstThreeReferences = tmpStrings(0) & ", " & vbCrLf & tmpStrings(1)
    End If
    
    
    If UBound(tmpStrings) >= 2 Then
        TakeFirstThreeReferences = tmpStrings(0) & ", " & vbCrLf & tmpStrings(1) & ", " & vbCrLf & tmpStrings(2)
    End If
End Function

Comments

[Даулет]

Извиняюсь за такой вопрос - я так понял это не макрос, а функция. Куда ее вставлять, не подскажите? А то не смог разобраться

[Krasnoarmeec]

Это функция, реализованная через макрос.
Для большего понимания я выложил табличку - в ней всё: и макрос и примеры использования.
Вы табличку по ссылке скачали?

[Даулет]

Krasnoarmeec, да, но тут у меня 22878 строк. А там у вас можно вставить только 4

[Krasnoarmeec]

Вставляйте все 22878 строк в лист Lapa1, а формулы (все 22878) вставите в новом листе, Lapa2 (=TakeFirstThreeReferences(Lapa1!B2)).

[Akina]

function TakeFirstThreeReferences (src as string) as string
dim tmp() as string
tmp = split(src, ",")
if ubound(tmp) > 2 then redim preserve tmp(2)
TakeFirstThreeReferences = join(tmp, "," & vbNewLine)
end function

[Даулет]

Krasnoarmeec, Тут при добавлении этой формулы - только первая строчка меняется и все. Подскажите почему так?

[Krasnoarmeec]

Извините, не понял вопрос. Где меняется?

[Даулет]

Krasnoarmeec,разобрался=) Спасибо. Вопрос решен=)