Cómo copiar una celda seleccionada para pegar en una Macro

Una macro es un pequeño fragmento de código que puede crear en Microsoft Office para personalizar sus aplicaciones. Las macros se crean en Visual Basic para Aplicaciones ( VBA) , un subconjunto del lenguaje de programación Visual Basic que está diseñado para facilitar su uso . Si desea copiar una celda y pegar el contenido en otra celda , una macro es la herramienta ideal para realizar esta función . Sólo tiene que añadir el código para Microsoft Excel y se puede copiar el contenido de cualquier celda. Cosas que necesitará
Microsoft Office 2003 o 2007
Mostrar más instrucciones
1

Abra la hoja de cálculo en la que desea copiar y pegar celdas .

2

clic en la pestaña " desarrolladores" y haga clic en "Visual Basic ".
3

Haga clic en la ficha "Insertar " en la ventana de "Visual Basic " y luego haga clic en " Módulo " . Se abrirá una nueva ventana
4

corte y pegue el siguiente código en la ventana : .

Sub CpyPste ()

Venta As Range
< p> NewRow Dim As Long

Rng As Range

' desactivar la actualización de pantalla

Application.ScreenUpdating = False

NewRow = 401

Set Rng = Range (" A1: A400 " )

Por Cada Venta En Rng

filas . ( Sell.Row & " :" & Sell.Row ) Seleccione

Selection.Copy

filas ( NewRow & " :" & NewRow ) . Seleccione

Selection.PasteSpecial Paste: = xlValues ​​, Operación : = xlNone , SkipBlanks : = _

False, transposición: = False

Application.CutCopyMode = False

NewRow = NewRow + 1

Siguiente Vende

Range (" A1" ) . Seleccione

Application.ScreenUpdating = True End Sub

5

Cambie el código para satisfacer sus necesidades. Modificar el rango ( "A1: A400 ") para el rango de datos en el documento. Por ejemplo, si los datos están en las celdas B1 a B10, que le cambia el rango de ( "B1 : B10 ") . Usted también tendrá que especificar el lugar donde los datos van a ser pegado ( células A401 en esta macro , que se define por "401 ") .
6

Press "F5 " para ejecutar la macro.