Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як перейменувати робочі аркуші на основі значень комірок в Excel?

Перейменування робочих аркушів зазвичай застосовується в нашій роботі Excel, але чи доводилося вам коли-небудь пробувати перейменовувати аркуші на основі значень комірок? Звичайно, ви можете перейменовувати аркуші вручну, але тут цей підручник вводить деякі трюки, які дозволяють швидко перейменовувати декілька аркушів на основі значень комірок, що може заощадити ваш робочий час.

Перейменуйте робочі аркуші на основі певної комірки з VBA

Перейменуйте робочі аркуші на основі певної комірки за допомогою Перейменування кількох аркушів гарна ідея3

Перейменуйте робочі аркуші на основі діапазону вмісту комірок за допомогою Перейменування кількох аркушів гарна ідея3


З VBA нижче, ви можете перейменувати відповідний аркуш на основі певної комірки.

1. Виберіть комірку, на основі якої ви хочете перейменувати робочий аркуш, у цьому випадку виберіть комірку А1. Дивіться знімок екрана:

doc перейменувати робочий аркуш 1

2. прес Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. клацання Insert > Модулі, потім вставте нижче код VBA до нового Модулі вікна.

VBA: Перейменуйте робочі аркуші на основі певних значень комірок.

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. прес F5 ключ для запуску коду VBA. Тоді всі робочі аркуші були перейменовані кожним відносним значенням комірки А1.

doc перейменувати робочий аркуш 2


Якщо у вас є Kutools для Excel, вам не потрібно зберігати код VBA, ви можете використовувати Перейменуйте кілька робочих аркушів функція для швидкого перейменування всіх аркушів на основі їх відносних комірок.

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. 

після безкоштовна установка Kutools для Excel, будь-ласка, виконайте наведені нижче дії:

1. Увімкніть книгу, для якої потрібно перейменувати імена її аркушів.

2. клацання Kutools Plus > Робочий аркуш > Перейменувати робочі аркуші. Дивіться знімок екрана:

doc перейменувати робочий аркуш 11

3. Потім у спливаючому діалоговому вікні позначте аркуші, під якими ви хочете перейменувати Робочі таблиці панелі та виберіть одну з Варіант перейменування Вам потрібно, тут я заміню назву аркуша, а потім перевіряю Перейменуйте робочі аркуші з певною коміркоюта виберіть клітинку, якій потрібно перейменувати. Дивіться знімок екрана:

doc перейменувати робочий аркуш 9

4. клацання Ok. Тепер аркуші перейменовані з певним вмістом комірки.

doc перейменувати робочий аркуш 2

Але іноді вам потрібно перейменовувати декілька робочих аркушів на основі діапазону значень комірок, як показано на знімку екрана, в цьому випадку ви можете вибрати метод нижче.

doc перейменувати робочий аркуш 3


з Перейменуйте кілька робочих аркушів of Kutools для Excel, Ви також можете перейменувати аркуші на основі вибраного діапазону.

після безкоштовна установка Kutools для Excel, будь-ласка, виконайте наведені нижче дії:

1. клацання Kutools Plus > Робочий аркуш > Перейменувати робочі аркуші. Дивіться знімок екрана:

doc перейменувати робочий аркуш 11

2 В Перейменуйте кілька робочих аркушів у діалоговому вікні потрібно вказати такі параметри:

(1) Виберіть робочі аркуші, з яких потрібно перейменувати Список робочих аркушів;

(2) Перевірте З конкретного діапазону параметр і виберіть значення комірки, які потрібно перейменувати на основі;

(3) Вкажіть Параметри перейменування, Ви можете перевірити Вставити перед початковою назвою аркуша, Вставити після оригінальної назви аркушаабо Замініть оригінальну назву аркуша, і ви можете переглянути відповідний результат у діалоговому вікні.

doc перейменувати робочий аркуш 10

3. клацання Ok, а потім ви зможете побачити, що всі вибрані вами аркуші були перейменовані на основі вказаних значень комірок.

Замініть оригінальну назву аркуша

doc перейменувати робочий аркуш 6

Вставити перед початковою назвою аркуша

doc перейменувати робочий аркуш 7

Вставити після оригінальної назви аркуша

doc перейменувати робочий аркуш 8

За допомогою утиліти «Перейменувати робочі аркуші» ви також можете перейменовувати аркуші з певним префіксом або суфіксом. Клацніть тут, щоб дізнатись більше про перейменування декількох аркушів.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Don · 2 months ago
    Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works.  It always goes into Debug on the first try.  I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.  
  • To post as a guest, your comment is unpublished.
    Henry · 1 years ago
    In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
    • To post as a guest, your comment is unpublished.
      Sunny · 11 months ago
      Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
  • To post as a guest, your comment is unpublished.
    Biplab Das · 1 years ago
    'Updateby20150602
    This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.