¿Cómo copiar datos en la primera fila vacía de otra hoja de cálculo en Excel?
Supongamos que desea copiar ciertos datos del rango A1:E1 de Hoja1 y pegarlos rápidamente en la primera fila vacía de Hoja2 dentro del mismo libro, tal como se muestra en la siguiente captura de pantalla. ¿Cómo puede lograrlo de forma sencilla? Este artículo le presenta un método mediante código VBA.
Copiar datos en la siguiente fila vacía de otra hoja de cálculo con código VBA
Copiar datos en la siguiente fila vacía de otra hoja de cálculo con código VBA
Puede ejecutar el siguiente código VBA para copiar datos de una hoja específica y pegarlos automáticamente en la primera fila vacía de otra hoja de cálculo.
1. Pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie y pegue el siguiente código VBA en la ventana del módulo.
Código VBA: copiar datos en la siguiente fila vacía de otra hoja de cálculo
Private Sub CommandButton1_Click()
Dim xScreenUpdating As Boolean
Dim xPasteSht As Worksheet
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xPasteSht = Worksheets("Sheet2")
xScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
xRg.Copy
xPasteSht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = xScreenUpdating
End SubNota: En el código, Hoja2 es la hoja de destino de los datos copiados. Puede ajustarla según sus necesidades.
3. Pulse la tecla F5 para ejecutar el código. En el cuadro de diálogo que aparece, Kutools para Excel, seleccione el rango que desea copiar en la siguiente fila vacía de Hoja2 y, a continuación, haga clic en el botón Aceptar. Vea la captura de pantalla:
Los datos copiados de Hoja1 se pegan automáticamente en la primera fila vacía de Hoja2, tal como se muestra en la siguiente captura de pantalla.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos