Red de conocimiento informático - Problemas con los teléfonos móviles - Dígame cómo reemplazarlo en VBA.

Dígame cómo reemplazarlo en VBA.

Sub TextBox1_Click()

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.