Как извлечь числа из строки и разделить их запятой (или другим разделителем) (подставить, заменить, стереть, указать номер, удалить, удалить,...)

Изменить:
кажется, что реальные данные сложнее, чем первоначально представленный образец. Самый простой способ запрограммировать это — использовать регулярные выражения для извлечения чисел.

• Извлеките любую строку цифр, следующую за началом строки; илиcommaнеобязательно, за которым следует один или несколькоspaces

Edit2. Преобразованный в позднюю привязку после того, как я прочитаю, шаблон будет распространен.

      Option Explicit
Function extrNums(cellRef) As String
    Dim RE As Object, MC As Object, M As Object
    Dim sTemp As Variant
    Const sPat As String = "(?:^|,\s*)(\d+)\b"
    
Set RE = CreateObject("vbscript.regexp")
With RE
    .Global = True
    .MultiLine = True
    .Pattern = sPat
    If .Test(cellRef) Then
        Set MC = .Execute(cellRef)
        For Each M In MC
            sTemp = sTemp & ", " & M.SubMatches(0)
        Next M
    End If
End With

extrNums = Mid(sTemp, 3)

End Function

Числа извлечения объяснений регулярных выражений
(?:^|,\s*)(\d+)\b

Опции: совпадение ^$ в разрывах строк.

• Сопоставьте регулярное выражение ниже (?:^|,\s*)
  • • Утвердить позицию в начале строки ^
  • Сопоставьте этот вариантИли сопоставьте эту альтернативу ,\s*
    • Сопоставьте символ «», буквально ,
    • \s*
      • *
• Сопоставьте регулярное выражение ниже и запишите его совпадение в обратную ссылку номер 1. (\d+)
  • Сопоставьте один символ, который является «символом пробела».Сопоставьте один символ, который является «цифрой» \d+
    • От нуля до неограниченного количества раз, столько раз, сколько возможно, отдавая по мере необходимости (жадный)От одного до неограниченного количества раз, столько раз, сколько возможно, отдавая по мере необходимости (жадный) +
• Утверждать позицию на границе слова \b

Создано с помощью RegexBuddy