Przejdź do głównej zawartości

 Jak skopiować arkusz i zmienić nazwę na podstawie wartości komórki w programie Excel?

Zwykle możesz zastosować Przenieś lub skopiuj funkcji, aby skopiować arkusz, a następnie ręcznie wpisz nową nazwę kopii, jeśli potrzebujesz. Ale czy kiedykolwiek próbowałeś zmienić nazwę arkusza na podstawie wartości komórki po skopiowaniu arkusza? W tym artykule omówię, jak automatycznie zmienić nazwę arkusza na podstawie wartości komórki podczas tworzenia kopii.

Skopiuj arkusz roboczy i zmień nazwę na podstawie wartości komórki za pomocą kodu VBA

Skopiuj arkusz roboczy wiele razy i zmień nazwę na podstawie wartości komórek za pomocą Kutools for Excel


Skopiuj arkusz roboczy i zmień nazwę na podstawie wartości komórki za pomocą kodu VBA

Poniższy kod VBA może pomóc w skopiowaniu arkusza roboczego i automatycznej zmianie jego nazwy na określoną wartość komórki, wykonaj następujące czynności:

1. Aktywuj arkusz, który chcesz skopiować, a następnie przytrzymaj klawisz ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: Skopiuj arkusz i zmień nazwę na wartość komórki:

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. A następnie naciśnij F5 klucz do uruchomienia tego kodu, a twój bieżący arkusz roboczy został skopiowany do bieżącego skoroszytu po wszystkich arkuszach roboczych, a jego nazwa została zmieniona na podaną wartość komórki, patrz zrzut ekranu:

doc copy raname według wartości 1

Note: W powyższym kodzie odwołanie do komórki A1 to wartość komórki, której nazwę chcesz zmienić dla nowego skopiowanego arkusza, możesz ją zmienić według potrzeb.


Skopiuj arkusz roboczy wiele razy i zmień nazwę na podstawie wartości komórek za pomocą Kutools for Excel

Powyższy kod może zmienić nazwę tylko z jedną wartością komórki, jeśli chcesz wielokrotnie skopiować arkusz i zmienić ich nazwę na podstawie listy wartości komórek, Kutools dla programu Excel'S Utwórz arkusz roboczy sekwencji może pomóc w jak najszybszym wykonaniu tego zadania.

Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. 

Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:

1. Kliknij Kutools Plus > Ćwiczenie > Utwórz Arkusze Sekwencjizobacz zrzut ekranu:

doc copy raname według wartości 3

2, w Utwórz arkusz roboczy sekwencji w oknie dialogowym wykonaj następujące operacje:

(1.) Wybierz nazwę arkusza, który chcesz skopiować z pliku Arkusz podstawowy Lista rozwijana;

(2.) Wybierz opcję Dane w zakresie pod Nazwy arkuszy oparte na sekcję i kliknij doc copy raname według wartości 5 , aby wybrać wartości komórek, na podstawie których chcesz zmienić nazwę skopiowanych arkuszy.

Pobierz Kutools dla programu Excel teraz!

3. Następnie kliknij Ok przycisk, a określony arkusz roboczy został wielokrotnie skopiowany i zmieniono jego nazwę na wartości komórek wybrane w nowym skoroszycie, zobacz zrzut ekranu:

doc copy raname według wartości 4

Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!


Demo: skopiuj arkusz roboczy wiele razy i zmień nazwę na podstawie wartości komórek za pomocą Kutools for Excel

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

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

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...

Opis


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date. For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017. What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17". Is this possible? By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools. Thanks in advance!
This comment was minimized by the moderator on the site
The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template. Sub Copyrenameworksheet() 'Updateby Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Value "" Then ActiveSheet.Name = wh.Range("A1").Value End If wh.Activate End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations