Jak kopírovat data do dalšího prázdného řádku jiného listu v aplikaci Excel?

Předpokládejme, že chcete zkopírovat určitá data v rozsahu A1: E1 z Listu1 a rychle je vložit do dalšího prázdného řádku Listu2 v sešitu, jak je ukázáno níže, co můžete snadno dosáhnout? Tento článek vám představí metodu VBA.

Zkopírujte data do dalšího prázdného řádku jiného listu s kódem VBA

Zkopírujte data do dalšího prázdného řádku jiného listu s kódem VBA

Níže uvedený kód VBA můžete spustit a automaticky zkopírovat data do určitého listu a vložit jej do dalšího prázdného řádku jiného listu.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do okna modulu.

Kód VBA: zkopírujte data do dalšího prázdného řádku jiného listu

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

Pozor: V kódu je List2 cílovým listem kopírovaných dat. Můžete to změnit podle své potřeby.

3. zmáčkni F5 klíč ke spuštění kódu, ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte rozsah, který chcete zkopírovat do dalšího prázdného řádku Listu2, a poté klikněte na OK knoflík. Viz screenshot:

Potom se zkopírovaná data Listu1 vloží do dalšího prázdného řádku konkrétního Listu2 ihned, jak je uvedeno níže: