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