Cómo copiar entre las hojas en Excel y VBA

Ser capaz de copiar datos de una hoja de cálculo en Excel a otro ahorra tiempo al usuario ya que no tiene que copiar de forma manual. La mejor manera de copiar datos entre hojas es utilizar el portapapeles del sistema. En VBA, puede utilizar la opción "Seleccionar" propiedad para seleccionar una hoja de cálculo y se puede utilizar el objeto de "Selección" para copiar datos al portapapeles del sistema. El método de "Pegar" pega el contenido del portapapeles en la hoja que está seleccionado actualmente.

Instrucciones

1 Haga clic en la pestaña "Hoja1" y tipo "datos" en sheet1 en A1. Haga clic en "Hoja2" y tipo "datos en la hoja 2" en A1.

2 Haga clic en la pestaña "desarrolladores", haga clic en "Visual Basic", y haga clic en el menú "Insertar". Haga clic en "Módulo" para insertar un nuevo módulo de código.

3 Crear un nuevo procedimiento sub.

copyDataBetweenSheets Private Sub ()

4 Agregue el código siguiente para seleccionar la Hoja1 y copiar los datos en A1:

Sheets("Sheet1").Select

Range ( "A1"). Seleccionar

Selection.Copy

5 Agregue el código siguiente para seleccionar la Hoja2 y pegar los datos copiados de Sheet1:

Sheets("Sheet2").Select

Range ( "A2"). Seleccionar

ActiveSheet.Paste

6 Seleccione los datos en la celda A1 y copiarlo añadiendo el siguiente código:

Range("A1").Select

Selection.Copy

7 Pegar los datos que ha copiado del Hoja2 añadiendo el código siguiente:

Sheets("Sheet1").Select

Range ( "A2"). Seleccionar

ActiveSheet.Paste

8 Poner fin al procedimiento mediante la adición de "End Sub". Pulse la tecla "F5" para ejecutar el procedimiento Sub.