¿Cómo guardar datos históricos cuando Excel importa datos externos?

Como se muestra a continuación, en la hoja de trabajo, A1 son los datos que desea. Comience copiando y pegando sus datos en B1 e ingresando 1 en A2.

Luego presione ALT+F11 para ingresar a la programación VBA, haga doble clic en ThisWorkbook a la izquierda y pegue el siguiente código a la derecha. Siempre que sus datos A1 cambien en el futuro, se guardarán automáticamente los datos históricos en la segunda columna de las celdas siguientes. Espero que le resulte útil.

¿Privado? ¿Sub? Workbook_SheetChange(ByVal?Shh?As?Object,?ByVal?Target?As?Scope)

¿Dim? uno,? b,? c

¿Respuesta? =?Val(celda(1,1).valor)

b? =?Val(celda(1,2).valor)

¿Si? ¿respuesta? <>? ¿b? Entonces

c? =?Val(celda(2,1).valor)

Celda(c?+?1,?2).valor? =?Celda(1,?2).Valor

Celda(1,?2).Valor? =?celda(1,?1).valor

celda(2,1).valor? =?c? +?1

¿Fin? Si

¿Finalizar? Submarino