Разбор несогласованно отформатированных текстовых данных в Excel

Если ваши примеры действительно репрезентативны, то существует шаблон, который можно извлечь с помощью регулярных выражений. Это может быть реализовано в Excel с использованием VBA.

Шаблон:

• Начало строки
• Серия цифр с последующим пробелом
• Подстрока, которая начинается с одной или нескольких цифр и не содержит других цифр
• вторая подстрока, которая начинается с одной или нескольких цифр и не содержит других цифр
• несколько разделенных пробелами групп с запятыми, с необязательной запятой (возврат последней)

Все ваши примеры показывают эту модель. Вот пользовательская функция, которая будет обрабатывать это:

Option Explicit Function extrAddressPart(sAddr As String, lPart As Long) Dim RE As Object, MC As Object Const sPat As String = "^(\d+)\s+(\d+\D+)\s+(\d+\D+)\s+.*\s+([\d,]+)$"  Set RE = CreateObject("vbscript.regexp") With RE .Pattern = sPat .MultiLine = True .Global = False If .Test(sAddr) = True Then Set MC = .Execute(sAddr) extrAddressPart = MC(0).submatches(lPart - 1) End If End With End Function 

Конечно, если ваш пример не является действительно представительным, то это решение не будет работать.

Поскольку вы имеете дело с несколькими разделителями, в таком случае я хотел бы предложить вам два возможных решения.

Решение 1 (VBA Macro):

Function ReplaceAndSplit(ByRef Text As String, ByRef DelimChars As String) As String() Dim DelimLen As Long, Delim As Long Dim strTemp As String, Delim1 As String, Arr() As String, ThisDelim As String strTemp = Text Delim1 = Left$(DelimChars, 1) DelimLen = Len(DelimChars) For Delim = 2 To DelimLen ThisDelim = Mid$(DelimChars, Delim, 1) If InStr(strTemp, ThisDelim) <> 0 Then _ strTemp = Replace(strTemp, ThisDelim, Delim1) Next ReplaceAndSplit = Split(strTemp, Delim1) End Function 

Как это устроено:

1. Введите этот код как Модуль вместе с Листом.

2. Напишите эту формулу в ячейке желаний, затем заполните ее до нужного уровня, нажмите F2и закончите с помощью Ctrl+Shift+Enter.

   {=ReplaceAndSplit(A2,",")}

Замечания:

1. ","это Commaкак разделитель.
2. Это должно быть " "для Space.
3. "[ ]"для Brackets.

Решение 2 (Формула Excel):

=SUBSTITUTE(TRIM(MID(SUBSTITUTE($A1,",",REPT(" ",256)),(COLUMNS($A:A)-1)*255+1,255)),"]","") 

Замечания:

Вам нужно отредактировать эту часть формулы в соответствии с разделителем, прежде чем выполнять ее, например,

1. SUBSTITUTE($A1,","для в Commaкачестве разделителя.
2. SUBSTITUTE($A1," "для в Spaceкачестве разделителя.
3. SUBSTITUTE($A1,"["для в Bracketкачестве разделителя.