Colección de citas famosas - Slogan de motivación - Problema de división() de Excel VBA

Problema de división() de Excel VBA

Dim Ge, str, tmp

str = "j, k|n, o|r, s|v, w "

tmp = Split(str, ", ")

ReDim Ge(UBound(tmp))

Para i = 0 a UBound(Ge)

Ge(i) = Split(tmp(i)," | ")

Entonces

Dividir solo puede devolver una matriz unidimensional. El código anterior también obtiene el resultado de una matriz unidimensional anidada dentro de una matriz unidimensional, por lo que la lectura final debería ser Ge(0)(0) en lugar de Ge(0,0). Si se requiere una matriz bidimensional, entonces la cadena sin formato requiere procesamiento adicional.