Procesamiento de cadenas de cadenas VBA
Sub?SplitData()
Dim?a
a?=?Split(Cells(1,?1),?"?")'will El contenido de la celda A1 se divide en matrices
Cells(5,?1).Resize(,?UBound(a)?+?1)?=?a'Asigne los elementos de la matriz a la celda especificada rango
¿Fin?Sub