Отдельная программа, которую я не могу изменить, добавляет в электронную таблицу и иногда что-то дублирует.
Например: в ячейке 5 3
ABC, vbd, S19M-0027757-27760, S19M-0027757-27760(1)
или это может быть
ABC, vbd S19M-0027757-27760, S19M-0027757-27760(1)
Что мне нужно сделать, это заменить оба из них с S19M-0027757-27760 (1), поэтому результат будет:
ABC, vbd, S19M-0027757-27760(1)
Пока у меня есть:
For i = 5 To lRow
inputArray = Split(Cells(i, 3).Value, " ")
For j = 0 To (UBound(inputArray) - LBound(inputArray) - 1)
Dim firstString As String
Dim secondString As String
firstString = inputArray(j)
secondString = inputArray(j + 1)
Next
Next
Я думаю Следующим шагом будет сравнение букв за буквой? Но как насчет запятой и (1)?