Zwykle, aby zmienić nazwy arkuszy roboczych w programie Excel, możemy szybko dwukrotnie kliknąć kartę arkusza lub kliknąć kartę arkusza prawym przyciskiem myszy, aby wybrać polecenie Zmień nazwę do zmiany nazw arkuszy. Zmiana nazwy jednego lub dwóch arkuszy w programie Excel jest bardzo przydatna, ale jeśli chcemy zmienić nazwę wielu arkuszy w ramach jednej operacji, jak możemy to zrobić?

Używanie polecenia Zmień nazwę do zmiany nazw arkuszy

Korzystanie z poręcznego narzędzia do wygodnej zmiany nazw wielu arkuszy

Używanie kodu VBA do zmiany nazwy wielu arkuszy

Używanie polecenia Zmień nazwę do zmiany nazw arkuszy

Niesamowity! Korzystanie z wydajnych zakładek w programie Excel, takich jak Chrome, Edge, Firefox i Safari!
Zaoszczędź 50% swojego czasu i zmniejszaj tysiące kliknięć myszą każdego dnia!

Możemy szybko zmienić nazwy arkuszy w Excelu za pomocą przemianować polecenie zgodnie z następującymi procedurami:

Kliknij prawym przyciskiem myszy kartę arkusza, której nazwę chcesz zmienić, i wybierz przemianować polecenie z menu prawego przycisku myszy. Lub kliknij dwukrotnie kartę arkusza, aby zmienić nazwę arkusza. Następnie wpisz nową nazwę i naciśnij Wchodzę klucz, aby zmienić nazwę, zobacz zrzut ekranu:

Z tym przemianować polecenie, możesz zmienić nazwę tylko jednego arkusza na raz, w celu zmiany nazwy wielu arkuszy roboczych, powtórz powyższe operacje.

Korzystanie z poręcznego narzędzia do wygodnej zmiany nazw wielu arkuszy

Używanie kodu VBA do zmiany nazwy wielu arkuszy

Tutaj przedstawię ci dwa kody VBA, aby zmienić nazwę wielu arkuszy.

Kod 1. Kod VBA umożliwiający jednoczesną zmianę nazw wielu arkuszy na żądaną nazwę

Korzystając z następującego kodu VBA, możesz szybko zmienić nazwy wszystkich arkuszy bieżącego skoroszytu z tym samym prefiksem w nazwach arkuszy, na przykład: KTE-order1, KTE-order 2 i KTE-order 3…

1. Kliknij na Deweloper > Visual Basici kliknij wstawka > Moduł Aplikacja Microsoft Visual Basic Windows.

2. Skopiuj i wklej następujący kod do pliku Moduł.

VBA: zmień nazwy wszystkich arkuszy, wprowadzając określoną nazwę

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  Kliknij  , aby wykonać kod i wprowadź żądaną nazwę w wyskakującym oknie dialogowym. zobacz zrzuty ekranu:

4. Kliknij OK. Następnie możesz zobaczyć, że nazwy wszystkich arkuszy zostały zmienione.

2. Kod VBA do zmiany nazwy wielu arkuszy według określonej wartości komórki w każdym arkuszu aktywnego skoroszytu

Korzystając z następującego kodu VBA, zmieni nazwę wszystkich arkuszy roboczych bieżącego skoroszytu, używając zawartości określonej komórki. Na przykład możesz wpisać nazwę arkusza w komórce A1 całego skoroszytu, a następnie nazwa arkusza zostanie zmieniona na wartość komórki A1.

1.  Określ komórkę, która ma zawierać nazwę arkusza w każdym arkuszu, i wpisz w niej nazwę arkusza. W tym przykładzie wpiszę nazwę arkusza w komórce A1 w każdym arkuszu.

2.  Kliknij Deweloper > Visual Basici kliknij wstawka > Moduł Aplikacja Microsoft Visual Basic System Windows.

3.  Skopiuj i wklej następujący kod do modułu.

VBA: Zmień nazwy arkuszy według określonej zawartości komórki

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4.  Kliknij  przycisk, aby wykonać kod. Nazwy wszystkich arkuszy roboczych są zmieniane na podstawie zawartości komórki A1.

Demo: Zmień nazwę wielu arkuszy za pomocą Kutools for Excel

Powiązane artykuły