Red de conocimientos sobre prescripción popular - Enciclopedia de Medicina Tradicional China - Excel de inventario de medicamentos
Excel de inventario de medicamentos
Alt F11 copia el código en el área de código.
Sub abc
Dimensión j, x
Para j=1 al rango(" H60000 "). fin(3). Fila
Para x=1 en el rango("AT60000"). fin(3). fila
si rango("H"ampj) = rango("AT"amp;x) entonces
rango("N"ampj) = rango("AU"amp;x )
Salir para...
Terminará si...
Siguiente x
Siguiente j
Alt F8 seleccione abc para ejecutar la macro.