La función VBA Split se utiliza para dividir una cadena de caracteres según un delimitador para obtener una matriz de valores.
Split(texto, separador)
O
Split(texto, separador, límite)
Dividamos el nombre del sitio "www.moonexcel.com.ua" con el separador "." para obtener 4 subcadenas en una matriz:
Sub SplitExample1()
text = "www.moonexcel.com.ua"
array = Split(text, ".")
MsgBox array(0) 'Devoluciones: www
MsgBox array(1) 'Devoluciones: moonexcel
MsgBox array(2) 'Devoluciones: com
MsgBox array(3) 'Devoluciones: ua
End Sub
Si es necesario, puede limitar la cantidad de elementos en la matriz:
Sub SplitExample2()
text = "www.moonexcel.com.ua"
array = Split(text, ".", 2)
MsgBox array(0) 'Devoluciones: www
MsgBox array(1) 'Devoluciones: moonexcel.com.ua
End Sub
Si solo necesita recuperar una única subcadena (en este ejemplo, la subcadena del medio "moonexcel"), puede especificar directamente un elemento de matriz para recuperarla:
Sub SplitExample3()
text = "www.moonexcel.com.ua"
middle = Split(text, ".")(1)
MsgBox middle 'Devoluciones: moonexcel
End Sub