Dígame cómo reemplazarlo en VBA.
Atenuar el nombre del nuevo libro, el nombre del libro antiguo, el nuevo nombre del archivo, el nombre del archivo antiguo como cadena
Atenuarme tanto tiempo
Atenuar xo, yo, xn, yn tienen la misma longitud
Dim newk, oldk
XO = Hojas de trabajo ("hoja 1") número de filas utilizadas.
i = 1
Hacer hasta la hoja("hoja1"). Celda(I,1). valor = " "
newk =hoja("hoja1"). celda(I,1). valor
j = 1
hasta la hoja ("Hoja 3"). celda(j,1). valor = " "
Ifsheet("Hoja3"). celda(j,1). Valor = newk Entonces
Hoja("hoja1"). celda(I,1). valor = hoja de trabajo ("Hoja3"). celda (j, 2). Valor
Otro
j = j 1
Terminará si...
Anillo
i = i 1
Lazo
Conector final
Es decir buscar toda la información de la columna A en la columna A de la hoja3. Si hay alguna diferencia, pegue B2 de la hoja 3 de esa fila en A1 de la HOJA 1.