El problema con EXCEL VBA es almacenar los datos de la celda en una matriz.

hoja de trabajo ("nombre de la hoja"). La celda (número de fila, número de columna) puede obtener el valor de la celda, donde el número de fila y el número de columna son ambos números.

Función BBB(b)

Atenuar a()

b = b & amp","

i = 1

p>

j = -1

ks = 1

js = 1

ifg = Falso

hacer Mientras Len( b)》=I

Si Mid(b,I,1)=", entonces

j = j + 1

ReDim Preservar a(j)

ks = js

js = i + 1

Si no, entonces

a(j) = Medio(b,ks, js - ks - 1)

Otro

m = Medio (b, ks, js - ks)

j = j + js - ks + 1

ReDim Preservar a(j)

For m = j + ks - js - 1 a j - 1

a(m) = a(m- 1) +1

Entonces

Si... terminará

si no Mid (b, I, 1) = " -" entonces

j = j + 1

ReDim Preservar a(j)

ks = js

js = i + 1

a(j) = Mid(b, ks, js - ks - 1)

ifg = true

Terminará si...

i = i + 1

Anillo

Página 3. Celda(1,1)=""

Para i = 0 al límite inferior (a)

c = c & amp "" & amp A㈠

bbb = c

Entonces

finalizar función

debería usarlo?

Por ejemplo

Celda (1, 1) = BBB (hoja 3. Celda (1, 2))

Los datos originales están en la celda (1, 2) de la Hoja3

.