Split VBA: Разбиваем текст на части в Excel

Split - это функция в языке программирования VBA, используемая для разделения текста на подстроки (массив строк) на основе заданного разделителя. Функция возвращает массив строк.

Синтаксис функции Split:

Split(expression as String, [delimiter], [limit], [compare])

• expression - строка, которую нужно разделить на подстроки.
• delimiter (необязательный) - строка, разделяющая подстроки в выражении. Если этот параметр не задан, то возвращается единственный элемент массива, представляющий начальную строку. Если разделитель состоит из нескольких символов, то он должен быть заключен в кавычки.
• limit (необязательный) - максимальное количество элементов, которые могут быть возвращены из функции Split. Если параметр limit указан и его значение меньше, чем количество разделенных элементов, то в массиве будут только первые limit элементов.
• compare (необязательный) - способ сравнения строк. Может принимать значение 0, 1 или 2.

Примеры кода:

1. Разделение строки на подстроки с помощью запятой в качестве разделителя.

Sub splitExample1()
    Dim str As String
    Dim arr() As String
    str = "apple,banana,cherry,orange"
    arr = Split(str, ",")
    For i = 0 To UBound(arr)
        MsgBox "arr(" & i & "): " & arr(i)
    Next i
End Sub

Результат выполнения: в окне сообщений будут последовательно отображены элементы массива:

arr(0): apple
arr(1): banana
arr(2): cherry
arr(3): orange

2. Разделение строки на подстроки с использованием пробела в качестве разделителя.

Sub splitExample2()
    Dim str As String
    Dim arr() As String
    str = "The quick brown fox jumps over the lazy dog."
    arr = Split(str, " ")
    For i = 0 To UBound(arr)
        MsgBox "arr(" & i & "): " & arr(i)
    Next i
End Sub

Результат выполнения: в окне сообщений будут последовательно отображены элементы массива, представляющего отдельные слова в заданной строке:

arr(0): The
arr(1): quick
arr(2): brown
arr(3): fox
arr(4): jumps
arr(5): over
arr(6): the
arr(7): lazy
arr(8): dog.