¿Cómo copiar datos a la siguiente fila vacía de otra hoja de cálculo en Excel?

Supongamos que desea copiar ciertos datos en el rango A1:E1 de Hoja1 y pegarlos rápidamente en la siguiente fila vacía de Hoja2 en un libro de trabajo, como se muestra en la captura de pantalla a continuación. ¿Qué puede hacer para lograrlo fácilmente? Este artículo presentará un método VBA para usted.

Copiar datos a la siguiente fila vacía de otra hoja de cálculo con código VBA

Copiar datos a 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 en una hoja específica y pegarlos automáticamente en la siguiente fila vacía de otra hoja de cálculo.

1. Presione 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. Luego copie y pegue el siguiente código VBA en la ventana del Módulo.

Código VBA: copiar datos a 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 Sub

Nota: En el código, Hoja2 es la hoja de destino de los datos copiados. Puedes cambiarla según sea necesario.

3. Presione la tecla F5 para ejecutar el código; en el cuadro de diálogo emergente de Kutools para Excel, seleccione el rango que desea copiar a la siguiente fila vacía de Hoja2 y luego haga clic en el botón Aceptar. Consulte la captura de pantalla:

Los datos copiados de Hoja1 se pegan inmediatamente en la siguiente fila vacía de Hoja2, como se muestra en la captura de pantalla a continuación.