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 SubPoznámka: 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:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
