¿Cómo copiar datos a la siguiente fila vacía de otra hoja de trabajo en Excel?
Suponiendo que desea copiar ciertos datos en el rango A1: E1 de Sheet1 y pegarlos rápidamente en la siguiente fila vacía de Sheet2 en un libro de trabajo como se muestra a continuación, ¿qué puede hacer fácilmente para lograrlo? Este artículo le presentará un método VBA.
Copie los datos en la siguiente fila vacía de otra hoja de trabajo con código VBA
Copie los datos en la siguiente fila vacía de otra hoja de trabajo con código VBA
Puede ejecutar el siguiente código VBA para copiar datos en una determinada hoja y pegarlos en la siguiente fila vacía de otra hoja de trabajo automáticamente.
1. Prensa otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código VBA en la ventana del Módulo.
Código de VBA: copie los datos a la siguiente fila vacía de otra hoja de trabajo
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 Sub
Note: En el código, Sheet2 es la hoja de trabajo de destino de los datos copiados. Puede cambiarlo según sus necesidades.
3. presione el F5 clave para ejecutar el código, en la ventana emergente Kutools for Excel cuadro de diálogo, seleccione el rango que desea copiar a la siguiente fila vacía de Sheet2, y luego haga clic en el OK botón. Ver captura de pantalla:
Luego, los datos copiados de Sheet1 se pegan en la siguiente fila vacía de la Sheet2 específica inmediatamente como se muestra a continuación:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!