Как заменить середину ячейки Excel?

Question

У меня есть список ресурсов для некоторых моих продуктов в Excel. Мне нужно заменить середину ячейки определенными данными.

Допустим, каждая ячейка имеет данные, такие как:

Ronald RFD2322 Green 34 x 55 Large 

Но каждая клетка отличается.

Один может быть как выше, и ниже один может быть

Ronald RFD8827 Blue 21 x 25 Small 

Мне нужно заменить среднюю часть, которая выглядит как номер модели (RFD2322), с именем, но некоторые имена другой. Мне нужно клетки, чтобы выглядеть как

Ronald Jimmy Green 34 x 55 Large 
Ronald Sarah Blue 21 x 25 Small 

Если никто не имеет ответа на то, как, по крайней мере заменить середину клетки с пустым пространством, так что я могу вернуться и исправить его вручную?

Answer 1

Эта формула будет возвращать Ronald Green 34 x 55 Large предполагая данные в ячейке A1

=LEFT(a1,FIND(" ",a1)-1)&MID(a1,FIND(" ",a1,FIND(" ",a1)+1),99) 

Глядя на вашу проблему, было бы больше смысла, если данные, которые должны быть заменены был в колонне. Например. если Jimmy в B1

=LEFT(a1,FIND(" ",a1)-1)&B1&MID(a1,FIND(" ",a1,FIND(" ",a1)+1),99) 

NB 99 представляет собой случайное число, выбрана не ожидают, что вы будете иметь больше, чем что многие персонажи. Это глупо, поскольку оно необязательно для LEFT и RIGHT функций, но требуется для MID.

Answer 2

Если вы согласны с VBA, вот решение, использующее RegEx.

Function simpleCellRegex(Myrange As Range) As String 
    ' Shamelessly lifted from https://stackoverflow.com/a/22542835/4650297 
    Dim regEx As New RegExp 
    Dim strPattern As String 
    Dim strInput As String 
    Dim strReplace As String 
    Dim strOutput As String 


    strPattern = "[R][F][D]...." 

    If strPattern <> "" Then 
     strInput = Myrange.Value 
     strReplace = "" 

     With regEx 
      .Global = True 
      .MultiLine = True 
      .IgnoreCase = False 
      .Pattern = strPattern 
     End With 

     If regEx.test(strInput) Then 
      simpleCellRegex = regEx.Replace(strInput, strReplace) 
     Else 
      simpleCellRegex = "Not matched" 
     End If 
    End If 
End Function 

Таким образом, если ячейка A1 "Ronald Синий RFD8827 21 х 25 Малый", в B1, просто сделать =simpleCellRegex(A1). Убедитесь, что ссылка Regex добавлена, см. Step 1 here.

Одно из преимуществ здесь заключается в том, что RFD #### может быть где угодно в ячейке, и он будет удален. Возможно, вы тоже можете получить это с помощью формул, но я думаю, что они будут довольно запутанными и сложными.