Jak skopiować dane do następnego pustego wiersza innego arkusza roboczego w programie Excel?
Przypuśćmy, że chcesz skopiować określone dane w zakresie A1: E1 arkusza Sheet1 i szybko wkleić je do następnego pustego wiersza arkusza Sheet2 w skoroszycie, jak pokazano na poniższym zrzucie ekranu, co możesz łatwo zrobić? W tym artykule przedstawimy metodę VBA.
Skopiuj dane do następnego pustego wiersza innego arkusza z kodem VBA
Skopiuj dane do następnego pustego wiersza innego arkusza z kodem VBA
Możesz uruchomić poniższy kod VBA, aby skopiować dane z określonego arkusza i automatycznie wkleić do następnego pustego wiersza innego arkusza.
1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Module.
Kod VBA: skopiuj dane do następnego pustego wiersza innego arkusza roboczego
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: W kodzie Arkusz2 jest docelowym arkuszem kopiowanych danych. Możesz to zmienić w zależności od potrzeb.
3. wciśnij F5 klucz do uruchomienia kodu w wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz zakres, który chcesz skopiować do następnego pustego wiersza arkusza Sheet2, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Następnie skopiowane dane Sheet1 są wklejane do następnego pustego wiersza określonego Sheet2 natychmiast, jak pokazano na poniższym zrzucie ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!