Функция VBA Split используется для разделения строки символов в соответствии с разделителем для получения массива значений.
Split(текст, разделитель)
Или
Split(текст, разделитель, предел)
Разделение названия сайта "www.moonexcel.com.ua" с разделителем "." чтобы получить 4 подстроки в массиве:
Sub SplitExample1() text = "www.moonexcel.com.ua" array = Split(text, ".") MsgBox array(0) 'Возвращает: www MsgBox array(1) 'Возвращает: moonexcel MsgBox array(2) 'Возвращает: com MsgBox array(3) 'Возвращает: ua End Sub
При необходимости вы можете ограничить количество элементов в массиве:
Sub SplitExample2() text = "www.moonexcel.com.ua" array = Split(text, ".", 2) MsgBox array(0) 'Возвращает: www MsgBox array(1) 'Возвращает: moonexcel.com.ua End Sub
Если вам нужно только получить одну подстроку (в этом примере средняя подстрока "moonexcel"), вы можете непосредственно указать элемент массива для его получения:
Sub SplitExample3() text = "www.moonexcel.com.ua" middle = Split(text, ".")(1) MsgBox middle 'Возвращает: moonexcel End Sub