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

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

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

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

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

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

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

1. Виберіть комірку, на основі якої ви хочете перейменувати робочий аркуш, у цьому випадку виберіть комірку А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.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Перейменуйте кілька аркушів на основі значень комірок