Добрый день. Просьба подсказать, есть ячейка, в ней указан перечень оборудования в определенном виде. Требуется в соседней ячейке отредактировать этот список, и сделать список другого вида. Файл приложил, в файле есть то, что смог сделать на текущий момент. застрял на этапе, как применить написанную формулу не только к первому элементу списка, но продолжить на следующие элементы
ОФФ. Вы принципиально неверно подходите к решению проблемы. Ваши исходные данные и так малопригодны для прямой обработки, а Вы продолжаете лепить все в одну ячейку. Грамотнее будет исходные данные разбить на три отдельных столбца (Тип, Серийный номер, Инвентарный номер) и уже из них склеивать нужные тексты. Например таким макросом
Код
Option Explicit
Sub MySplit()
Dim lRow&, I&, J&, N&, M&
Dim arr(), arrNew()
Dim iTxt, iStr
lRow = Cells(Rows.Count, "A").End(xlUp).Row
If lRow = 1 Then
ReDim arr(1, 1)
arr(1, 1) = Range("A1").Value
Else
arr = Range("A1:A" & lRow).Value
End If
ReDim arrNew(1 To UBound(arr) * 3, 1 To 3)
For I = LBound(arr) To UBound(arr)
iTxt = Split(arr(I, 1), Chr(10))
For J = LBound(iTxt) To UBound(iTxt)
iStr = Split(iTxt(J), ":")
Select Case True
Case iStr(0) Like "*Тип оборудования*": N = 1: M = M + 1
Case iStr(0) Like "*Серийный*": N = 2
Case iStr(0) Like "*Инвентарный*": N = 3
End Select
If N <> 0 Then
arrNew(M, N) = Trim(iStr(1))
End If
N = 0
Next
Next
Range("A" & lRow + 2).Resize(M, 3) = arrNew
End Sub
Инструмент заменить 1) МОЛ* на ничего 2) Серийный номер устройства: на сер. № 3) Инвентарный номер устройства: на инв. № 4) Тип оборудования: на ничего 5) Требу*----------------------- на ничего