Acerca de Excel VBA

Un desastre. Eres bueno complicando las cosas simples. . Simplemente indique claramente sus requisitos. .

¿Es así? Si el contenido de A1 es , cambie A1 a HS765 y complete Cardinal Health, Inc. en B1.

Simplemente sigue la rutina que mencioné anteriormente para explicar el problema claramente. .

¿El HS765 genera el valor de v en la segunda columna? Si no es HS765, no haga nada. El siguiente es el código:

sub test()

dim i,i1,i2,v1,v2

. para i = 1 a 500

si celdas(i,1) <> "" entonces

cc=celdas(i,1).valor

i1 =instr( 1,cc,chr(34),1)

i2=instr(i1+1,cc,chr(34),1)-1

si es correcto( izquierda(cc,i2),i2-i1) = "HS765" entonces

v1=instr(i2+2,cc,chr(34),1)

v2=instr (v1+ 1,cc,chr(34),1)-1

celdas(i,2).valor = derecha(izquierda(cc,v2),v2-v1)

endif

siguiente i

fin sub