Удаление конкретной строки из ячейки

Question

У меня есть текст в диапазоне ячеек, как

Производитель # || # Coaster # | # | Ширина (из стороны в сторону) # || # 20" W #### Высота (внизу) # || # 35 "H # | # | Глубина (спереди назад) # || # 20.5" D #### Глубина сиденья # || # 14.25 "** # | # | Материал & Закончить # ### ** Состав # || # Вуд-виниры & Твердые тела # | # | Состав # || # Металл # | # | Элементы стиля #### Стиль # || # Современный # | # | Стиль # || # Казуальный

Из этой ячейки мне нужно удалить строки между # | # | "needtoremove" ####, не затрагивая другие строки. Я попытался найти и заменить, найдя # | # | * #### и заменив его на # | # |. Однако это не дает точного результата.

Может ли кто-нибудь мне помочь?

Answer 1

Нечто подобное.

Если это значение находится в ячейке A1

Dim str As String 
Dim i As Integer 
Dim i2 As Integer 
Dim ws As Excel.Worksheet 

Set ws = Application.ActiveSheet 

str = ws.Range("A1").Value 
i = InStr(str, "#|#|") 
i2 = InStr(str, "####") 

str = Left(str, i) & Right(str, Len(str) - i2) 

ws.Range("A1").Value = str 

Answer 2

Другим решением будет удалить все между первым # | # | и ####, событие # || # и т. д.

Если вам нужно только удалить текст между # | # | и ####, только если нет другого ## || inbetween, я думаю, что самый простой способ - использовать регулярное выражение.

Вам понадобится активировать библиотеку Microsoft VBScript Regular Expressions 5.5 в Инструменты-> Ссылки из редактора VBA.

Изменить диапазон («D166»), где бы ни находилась ваша ячейка. Выражение как это прямо сейчас («# \ | # \ | [A-Za-z0-9 &] * ####») соответствует любому тексту, который начинается с # | # |, заканчивается на #### и имеет любое количество буквенно-цифровых символов, & или пробел. При необходимости вы можете добавить другие символы между командами.

Sub remove() 
Dim reg As New RegExp 
Dim pattern As String 
Dim replace As String 
Dim strInput As String 
strInput = Range("D166").Value 
replace = "" 
pattern = "#\|#\|[A-Za-z0-9& ]*####" 
With reg 
    .Global = True 
    .MultiLine = True 
    .IgnoreCase = False 
    .pattern = pattern 
End With 


If reg.test(strInput) Then Range("D166").Value = reg.replace(strInput, replace) 

End Sub