Note: The other languages of the website are Google-translated. Back to English

Jak wielokrotnie kopiować wiele arkuszy w programie Excel?

Czasami może być konieczne wykonanie kopii lub wielu kopii określonych arkuszy w skoroszycie. Oto kilka szybkich sposobów łatwego kopiowania jednego arkusza lub wielu arkuszy w programie Excel.


Utwórz jedną kopię wielu arkuszy jednocześnie do aktywnego skoroszytu lub innego skoroszytu za pomocą polecenia Przenieś lub Kopiuj

Z Przenieś lub skopiuj polecenia w programie Excel, możesz utworzyć jedną kopię arkusza roboczego, wiele określonych arkuszy roboczych lub wszystkie arkusze robocze do aktywnego skoroszytu lub innego skoroszytu naraz.

1. W określonym skoroszycie, w którym będziesz kopiować arkusze, wybierz wiele arkuszy roboczych na pasku kart Arkusz.
Uwagi: Trzymać CTRL klawiszem, możesz wybrać wiele nieprzylegających kart arkuszy, klikając je jedna po drugiej na pasku kart arkusza; trzymać SHIFT klawisz, możesz wybrać wiele sąsiednich kart arkuszy, klikając pierwszą kartę arkusza i ostatnią na pasku kart arkusza.

2. Kliknij prawym przyciskiem myszy wybraną kartę arkusza na pasku kart arkusza i wybierz Przenieś lub skopiuj z menu kontekstowego. Zobacz zrzut ekranu:
doc kopiuj wiele arkuszy 01

3, w Przenieś lub skopiuj w oknie dialogowym określ następujące ustawienia:
(1) Określ skoroszyt docelowy, do którego skopiujesz arkusze z pliku Aby zarezerwować Lista rozwijana. W razie potrzeby możesz wybrać aktywny skoroszyt, inny otwarty skoroszyt lub nowy skoroszyt.
(2) Określ położenie kopiowanych arkuszy na pasku zakładek Arkusz, możesz wybrać po wszystkich istniejących arkuszach.
(3) Sprawdź Utwórz kopię opcja, jeśli nie zaznaczysz tej opcji, wybrane arkusze zostaną przeniesione do skoroszytu docelowego.
(4) Kliknij OK przycisk.

Teraz wykona tylko jedną kopię wybranych arkuszy do określonego skoroszytu. Aby wykonać wiele kopii tych arkuszy, możesz powtórzyć operację wiele razy.

Tylko kilka kliknięć, aby wykonać wiele kopii wielu arkuszy w aktywnym skoroszycie

Ogólnie rzecz biorąc, możemy skopiować wiele arkuszy roboczych z rozszerzeniem Przenieś lub skopiuj funkcja w programie Excel. Jednak ta funkcja może wykonywać tylko jedną kopię naraz. Tutaj, z Kutools dla Excela Kopiuj arkusze narzędzie, możesz łatwo wykonać tyle kopii wielu arkuszy, ile potrzebujesz w aktywnym skoroszycie, wykonując tylko kilka kliknięć.


ad copy wiele arkuszy kalkulacyjnych 01

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Zdobądź To Teraz

Wykonaj wiele kopii jednego określonego arkusza roboczego w aktywnym skoroszycie z kodem VBA

Jeśli chcesz wykonać 10 kopii określonego arkusza roboczego, plik Przenieś lub skopiuj będzie to czasochłonny sposób, a operację trzeba będzie powtarzać wielokrotnie. Ale dzięki poniższemu kodowi VBA możesz szybko skopiować arkusz roboczy 10 razy na raz.

1. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.

VBA: Utwórz wiele kopii określonych arkuszy w aktywnym skoroszycie

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Uwagi: W powyższym kodzie zamień „Sheet1”z nazwą arkusza do skopiowania.

3. Następnie naciśnij F5 aby uruchomić kod, pojawi się okno z pytaniem o liczbę żądanych kopii arkuszy.

4. Następnie kliknij OK, określony arkusz został skopiowany 100 razy w aktywnym skoroszycie.


Wykonaj wiele kopii wielu arkuszy do aktywnego skoroszytu za pomocą Kutools for Excel

Chociaż wykonanie kopii wielu arkuszy w programie Excel jest proste, jeśli chcesz wykonać wiele kopii wielu arkuszy w bieżącym skoroszycie, może być konieczne użycie Przenieś lub skopiuj polecenie ponownie i ponownie. Czy chcesz zrobić to jednym kliknięciem? Dzięki Kopiuj arkusze użyteczność dodatku innej firmy Kutools dla programu Excel, możesz wykonać wiele kopii wielu arkuszy jednym kliknięciem w programie Excel.

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Zdobądź To Teraz

1, Kliknij Kutools Plus > Kopiuj arkusze. Zobacz zrzut ekranu:

Uwagi: Klikanie Kutools Plus > Ćwiczenie > Kopiuj arkusze otrzyma również tę funkcję.

2. Zastosuj ustawienia w Skopiuj wiele arkuszy roboczych Okno dialogowe:
(1) Sprawdź arkusze, z których chcesz skopiować Skopiuj wybrane arkusze sekcja.
(2) Określić Liczba kopii.
(3) Określ położenie skopiowanych arkuszy, na przykład przed lub po wszystkich arkuszach, przed lub po bieżącym arkuszu.
(4) Kliknij Ok przycisk.

3. Pojawi się okienko zachęty przypominające, że zaznaczone arkusze zostały skopiowane wiele razy w razie potrzeby, kliknij OK aby wyjść. Zobacz zrzut ekranu:

To Skopiuj wiele arkuszy roboczych cechą Kutools dla programu Excel utworzy wiele kopii wielu określonych arkuszy roboczych w aktywnym skoroszycie za pomocą tylko kilku kliknięć. Bezpłatna wersja próbna!


Zrób jedną kopię wielu arkuszy z wielu skoroszytów do nowego

Jeśli masz zainstalowany Kutools for Excel, możesz również zastosować jego Połącz arkusze funkcja tworzenia jednej kopii wielu arkuszy z wielu zamkniętych skoroszytów do nowego skoroszytu za pomocą kilku kliknięć tylko w programie Excel.

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Zdobądź To Teraz

1, Kliknij Kutools Plus > Połączyć aby aktywować funkcję Połącz arkusze.

2. W kreatorze Połącz arkusze - krok 1 z 3, sprawdź Połącz wiele arkuszy ze skoroszytów w jeden arkusz opcję i kliknij przycisk Dalej przycisk. Zobacz zrzut ekranu:

3. W kreatorze Połącz arkusze - krok 2 z 3, wykonaj następujący zrzut ekranu:
(1) Kliknij Dodaj > filet or Teczka aby dodać skoroszyty, z których będziesz kopiować arkusze.
(2) W Lista skoroszytów sprawdź skoroszyt, którego arkusze będziesz kopiować;
(3) W Lista arkuszy sprawdź arkusze, które skopiujesz;
(4) Powtórz powyżej (2) i (3) aby wybrać arkusze z innych skoroszytów, które skopiujesz.
(5) Kliknij Dalej przycisk.

4. W kreatorze Połącz arkusze - krok 3 z 3 skonfiguruj ustawienia kopiowania według potrzeb i kliknij przycisk koniec przycisk.

5. Teraz w nowym oknie dialogowym określ folder docelowy, aby zapisać nowy skoroszyt, nazwij nowy skoroszyt w Nazwa pliku i kliknij przycisk Zapisz przycisk. Zobacz zrzut ekranu:

Teraz pojawią się kolejne dwa okna dialogowe z prośbą o otwarcie nowego skoroszytu i zapisanie scenariusza kombinacji, kliknij przyciski według potrzeb. Do tej pory kopiował wszystkie określone arkusze z wielu skoroszytów naraz.

Z tym Połącz (arkusze) narzędzie, możesz łatwo kopiować i łączyć arkusze robocze i skoroszyty, jak pokazano na poniższej liście. Bezpłatna wersja próbna!
(1) Szybko łącz wiele arkuszy / zakresów ze skoroszytów w jeden arkusz roboczy;
(2) Szybko scalaj / łącz wszystkie arkusze o tej samej nazwie w różnych skoroszytach w jeden arkusz;
(3) Szybko scalaj / łącz arkusze lub skoroszyty w jeden skoroszyt;
(4) Szybko podsumuj / oblicz dane z wielu arkuszy w jednym arkuszu.


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (25)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Używając kodu VBA, nazewnictwo zduplikowanych arkuszy jest w odwrotnej kolejności. Powiedzmy, że zrobię 10 kopii Sheet1, skończę z Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......czy można je mieć w normalnej kolejności?
Ten komentarz został zminimalizowany przez moderatora na stronie
Wypróbowałem kod VBA i otrzymałem błąd poza zakresem indeksu (9). Zamieniłem nazwę arkusza na wszystko, co przychodziło mi do głowy, co było już w skoroszycie. Masz pomysł, co zrobiłem źle? Czy jest też sposób na stopniowe nadawanie nazw każdemu arkuszowi? Jestem pewien, że to wiązałoby się z pytaniem Michaela. Domyślam się, że odpowiedź na jego pytanie byłaby taka, że ​​​​musiałbyś jakoś ustawić cel Po na „arkusz” + x, a to z kolei miałoby zastosowanie do mojego pytania, gdyby istniał sposób, aby określić, jak nazwać nowy arkusz. Zawsze mogłem po prostu zmienić „master” mojej szefowej na „sierpień 0” lub którykolwiek to jest miesiąc, ale byłoby jej łatwiej zrozumieć, gdyby skrypt nadał nazwy automatycznie.
Ten komentarz został zminimalizowany przez moderatora na stronie
dzięki, kod vba był ogromny
Ten komentarz został zminimalizowany przez moderatora na stronie
Wow, dzięki za kod VBA. To naprawdę bardzo pomaga!
Ten komentarz został zminimalizowany przez moderatora na stronie
[cytat]Korzystając z kodu VBA, nazewnictwo zduplikowanych arkuszy jest w odwrotnej kolejności. Powiedzmy, że zrobię 10 kopii Sheet1, skończę z Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......czy można je mieć w normalnej kolejności?Michaela Tadashiego[/cytat] Czy ktoś był w stanie odpowiedzieć na to pytanie? Muszę stworzyć 72 kopie, ale musiałbym mieć je w kolejności (od 1 do 72, zamiast od 72 do 1) Dzięki!
Ten komentarz został zminimalizowany przez moderatora na stronie
[quote][quote]Korzystając z kodu VBA, nazewnictwo zduplikowanych arkuszy jest w odwrotnej kolejności. Powiedzmy, że zrobię 10 kopii Sheet1, skończę z Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......czy można je mieć w normalnej kolejności?By Juan[/cytat] Czy ktoś był w stanie odpowiedzieć na to pytanie? Muszę stworzyć 72 kopie, ale musiałbym mieć je w kolejności (od 1 do 72, zamiast od 72 do 1) Dzięki!Michaela Tadashiego[/quote]e] Jeśli chcesz, aby kopie arkuszy były w kolejności sekwencyjnej, a nie wstecz, zmień następujący wiersz... Po:=ActiveWorkbook.Arkusze(„Arkusz1”) do tego... Po:=ActiveWorkbook.Arkusze(Arkusze.Liczba) Mój ukończony kod wyglądał tak, jak poniższy, w którym zastosowano 2 monity InputBox, aby umożliwić dynamiczną liczbę kopii i nazwę arkusza roboczego. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Ile kopii potrzebujesz?") s = InputBox("Wprowadź nazwę arkusza, który chcesz skopiować") For numtimes = 1 Do numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak uzyskać ciągłą numerację kopii. Jeśli arkusz, który chcę skopiować, ma nazwę I002 i chcę, aby następny miał nazwę I003,I004,I005 i tak dalej.
Ten komentarz został zminimalizowany przez moderatora na stronie
Wyszukaj słowo „Po” i zmień je na „Przed”. Spowoduje to utworzenie kopii we właściwej kolejności „Przed” Arkusz1. Jedyną rzeczą do zapamiętania jest to, że numeracja zawsze zaczyna się od (2), ponieważ oryginalny arkusz zawsze będzie liczony jako pierwsza kopia. Możesz również zastąpić "Arkusz1" nazwą karty, którą próbujesz skopiować.
Ten komentarz został zminimalizowany przez moderatora na stronie
tak, to działa, dzięki Z powodzeniem wykonałem wiele kopii jednego arkusza roboczego w tym samym skoroszycie, często używając kodu vba thnx.
Ten komentarz został zminimalizowany przez moderatora na stronie
jak kopiować z tymi samymi szerokościami kolumn
Ten komentarz został zminimalizowany przez moderatora na stronie
Takie same szerokości kolumn jak w oryginalnym arkuszu, czy chcesz, aby wszystkie szerokości kolumn były takie same?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dostałem ten sam błąd co Theou i wydaje się, że nikt go nie naprawił. Moje zakładki są już nazwane PO 51, PO 52 itd. I zastąpiłem Sheet1 przez PO 51, aby to skopiować i otrzymałem błąd indeksu dolnego poza zakresem (9) Postępowałem zgodnie z kodem Schuylera, aby uzyskać właściwą kolejność, ale nadal otrzymuję błąd i to zawsze dzięki tym dwóm wierszom: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
Ten komentarz został zminimalizowany przez moderatora na stronie
[cytat] Dostałem ten sam błąd co Theou i wydaje się, że nikt go nie rozwiązał. Moje zakładki są już nazwane PO 51, PO 52 itd. I zastąpiłem Sheet1 przez PO 51, aby to skopiować i otrzymałem błąd indeksu dolnego poza zakresem (9) Postępowałem zgodnie z kodem Schuylera, aby uzyskać właściwą kolejność, ale nadal otrzymuję błąd i to zawsze dzięki tym dwóm wierszom: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)Przez Debbi[/quote] Czy możesz dołączyć cały kod, aby ułatwić debugowanie? „Błąd indeksu dolnego poza zakresem” zwykle oznacza, że ​​kod odwołuje się do czegoś, co nie istnieje. Znajduję to we własnym kodzie, kiedy mam literówkę lub coś w tym rodzaju.
Ten komentarz został zminimalizowany przez moderatora na stronie
Otrzymuję błąd, że 'numtimes' nie jest zdefiniowane...?
Ten komentarz został zminimalizowany przez moderatora na stronie
gdzie wstawię ten powyższy kod w vba, czy powinienem utworzyć wspólny przycisk, a następnie w środku? pozdrowienia.
Ten komentarz został zminimalizowany przez moderatora na stronie
Wykonaj poniższe kroki:
1. Skopiuj powyższy kod
2. Przytrzymaj klawisze ALT + F11, aby otworzyć okno Microsoft Visual Basic for Applications.
2. kliknij wstawka > Modułi wklej następujący kod w oknie modułu.
4. Następnie naciśnij klawisz F5, aby uruchomić kod;
5. Pojawi się okno z pytaniem o liczbę żądanych kopii arkusza.
Ten komentarz został zminimalizowany przez moderatora na stronie
Kiedy pierwszy raz próbowałem, otrzymałem komunikat o błędzie, ponieważ nie zmieniłem nazwy Sheet1. Po tym, jak zdałem sobie sprawę, co spowodowało błąd, zbadałem trochę dalej, ponieważ nie chciałem ręcznie wprowadzać nazwy arkusza do makra. A kiedy potrzebuję tej funkcji, prawie zawsze dotyczy to bieżącego arkusza. Dodałem linię a = activesheet.name I poprawiłem linię po:=activeworkbook.sheets("sheet1") do activeworkbook.sheets(a).copy _ To działało bardzo dobrze, ale zauważyłem, że numeracja została odwrócona ... to mi nie przeszkadzało, ponieważ i tak zamierzałem ręcznie zmienić nazwy nowych arkuszy. Kiedy zobaczyłem post Schuyler, poprawiłem linię activeworkbook.sheets(a).copy _ na after:=activeworkbook.sheets(worksheets.count) Jestem teraz zadowolony z wyniku. Moje gotowe makro: Sub copy() Dim x As Integer x = InputBox("Wprowadź liczbę kopii Arkusz1") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets( Worksheets.Count) Następny koniec Sub --- Pozdrawiam, Barry
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo Barry. Twoje gotowe makro to jedyna rzecz, która zadziałała dla mnie.
Ten komentarz został zminimalizowany przez moderatora na stronie
mam błąd składni na „After:=ActiveWorkbook.Sheets(Worksheets.Count)


ale nie wiem, co jest nie tak... Czy możesz mi pomóc, proszę?
Ten komentarz został zminimalizowany przez moderatora na stronie
Fantastyczny kod VBA - naprawdę pomógł
Ten komentarz został zminimalizowany przez moderatora na stronie
Jestem w tym nowy, po prostu próbuję wykonać kopie tego samego arkusza, to jest kod, którego używam. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Ile kopii potrzebujesz?") s = InputBox("Wprowadź nazwę arkusza, który chcesz skopiować") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub kiedy używam kodu, wyświetla mi się błąd „Błąd składni”, a następnie ten tekst zmienia kolor na czerwony ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) i tekst is zmienia kolor na żółty Sub Copier() co mogę zrobić, aby to naprawić.
Ten komentarz został zminimalizowany przez moderatora na stronie
[cytat] Jestem w tym nowy, po prostu próbuję wykonać kopie tego samego arkusza, to jest kod, którego używam. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Ile kopii potrzebujesz?") s = InputBox("Wprowadź nazwę arkusza, który chcesz skopiować") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub kiedy używam kodu, wyświetla mi się błąd „Błąd składni”, a następnie ten tekst zmienia kolor na czerwony ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) i tekst is zmienia kolor na żółty Sub Copier() co mogę zrobić, aby to naprawić.Przez Tylera Dempseya[/quote] Dokładnie sprawdź swój kod i upewnij się, że nie masz miejsca w ActiveWorkbook. Arkusze.Kopiuj _ lub w Arkusze(Arkusze.Liczba)
Ten komentarz został zminimalizowany przez moderatora na stronie
[cytat] Jestem w tym nowy, po prostu próbuję wykonać kopie tego samego arkusza, to jest kod, którego używam. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Ile kopii potrzebujesz?") s = InputBox("Wprowadź nazwę arkusza, który chcesz skopiować") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub kiedy używam kodu, wyświetla mi się błąd „Błąd składni”, a następnie ten tekst zmienia kolor na czerwony ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) i tekst is zmienia kolor na żółty Sub Copier() co mogę zrobić, aby to naprawić.Przez Tylera Dempseya[/quote] Oto dokładny kod, którego chcesz użyć: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Ile kopii potrzebujesz?") s = InputBox("Enter nazwa arkusza, który chcesz skopiować") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję, ostatni uratował mi życie :)
Ten komentarz został zminimalizowany przez moderatora na stronie
Kod roboczy

Kopiarka podrzędna()
Dim s jako ciąg
Dim numtimes jako liczba całkowita
Dim liczba kopii jako liczba całkowita
numCopies = InputBox("Ile kopii potrzebujesz?")
s = InputBox("Wprowadź nazwę arkusza, który chcesz skopiować")
Dla numtimes = 1 To numCopies
ActiveWorkbook.Sheets(s).Kopiuj po:=ActiveWorkbook.Sheets(Worksheets.Count)
Dalej
End Sub

skopiuj całą linię z ActiveWorkbook.Sheets...... to był problem i trochę spacji

Miłego dnia
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL