ubiquitour.com

Cómo copiar entre hojas en Excel y VBA

Cómo copiar entre hojas en Excel y VBA

Ser capaz de copiar datos desde una hoja a otra en Excel ahorra el tiempo del usuario puesto que él no tiene que copiar manualmente. La mejor manera de copiar datos entre hojas es utilizar el Portapapeles del sistema. En VBA, se puede utilizar la propiedad "Select" para seleccionar una hoja de cálculo y puede utilizar el objeto "Selección" para copiar los datos en el Portapapeles del sistema. El método de "Pegar" pega el contenido del portapapeles en la hoja actualmente seleccionada.

Instrucciones

1 Haga clic en las "Hoja1" ficha y tipo "datos en sheet1" en A1. Haga clic en "Sheet2" y escriba "los datos de sheet2" en A1.

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

3 Crear un nuevo procedimiento sub.

Private Sub copyDataBetweenSheets()

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

Sheets("Sheet1").Select

Range("A1").Select

Selection.Copy5

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

Sheets("Sheet2").Select

Range("A2").Select

ActiveSheet.Paste6

Seleccionar los datos en la celda A1 y copia añadiendo el siguiente código:

Range("A1").Select

Selection.Copy7

Pegue los datos que copiaste de Sheet2 añadiendo el siguiente código:

Sheets("Sheet1").Select

Range("A2").Select

ActiveSheet.Paste8

Terminar el procedimiento agregando "End Sub". Presione "F5" para ejecutar el procedimiento sub.