Przejdź do głównej zawartości

Jak utworzyć przycisk polecenia, aby skopiować i wkleić dane w programie Excel?

Autor: Silvia Ostatnia modyfikacja: 2024-08-26

Przypuśćmy, że po zmianie danych trzeba często kopiować zakres komórek w inne miejsce, ręczna metoda kopiowania i wklejania będzie trudna i czasochłonna. Jak sprawić, by ta sprawa kopiowania i wklejania działała automatycznie? W tym artykule dowiesz się, jak używać przycisku polecenia do kopiowania i wklejania danych jednym kliknięciem.

Utwórz przycisk polecenia, aby skopiować i wkleić dane za pomocą kodu VBA


Utwórz przycisk polecenia, aby skopiować i wkleić dane za pomocą kodu VBA

Wykonaj następujące czynności, aby automatycznie kopiować i wklejać dane po kliknięciu przycisku polecenia.

1. Wstaw przycisk polecenia, klikając Deweloper > wstawka > Przycisk polecenia (formant ActiveX). Zobacz zrzut ekranu:

kliknij przycisk polecenia na karcie Deweloper

2. Narysuj przycisk polecenia w arkuszu i kliknij go prawym przyciskiem myszy. Wybierz Wyświetl kod z menu kontekstowego.

narysuj przycisk i kliknij opcję Wyświetl kod z menu kontekstowego

3. W wyskakującym okienku Microsoft Visual Basic for Applications oknie, zamień oryginalny kod w oknie Kod na poniższy kod VBA.

Kod VBA: użyj przycisku polecenia, aby skopiować i wkleić dane w programie Excel

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Note: W kodzie CommandButton1 to nazwa wstawionego przycisku polecenia. A1: C17 to zakres, który musisz skopiować, a J1: L17 to zakres docelowy do wklejenia danych. Zmień je według potrzeb.

4. naciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno. I wyłącz tryb projektowania na karcie Deweloper.

5. Teraz kliknij przycisk polecenia, wszystkie dane z zakresu A1: C17 zostaną skopiowane i wklejone do zakresu J1: L17 bez formatowania komórki.

zrzut ekranu kutools dla Excel AI

Odblokuj magię Excela za pomocą Kutools AI

  • Inteligentne wykonanie: Wykonuj operacje na komórkach, analizuj dane i twórz wykresy — a wszystko to za pomocą prostych poleceń.
  • Formuły niestandardowe: Generuj dostosowane formuły, aby usprawnić przepływ pracy.
  • Kodowanie VBA: Pisz i wdrażaj kod VBA bez wysiłku.
  • Interpretacja formuły: Z łatwością zrozum złożone formuły.
  • Tłumaczenie tekstu: Przełam bariery językowe w arkuszach kalkulacyjnych.
Zwiększ możliwości programu Excel dzięki narzędziom opartym na sztucznej inteligencji. Pobierz teraz i doświadcz wydajności jak nigdy dotąd!

Powiązane artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej
Używaj Kutools w swoim preferowanym języku – dostępny jest angielski, hiszpański, niemiecki, francuski, chiński i ponad 40 innych!

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!