Як знайти та замінити назви вкладки аркуша в Excel?

Знайти та замінити значення в клітинках Excel легко. Але чи є спосіб знайти та замінити імена аркушів у Excel? Наприклад, як показано нижче на скріншоті, у вас є кілька робочих аркушів, які містять “KTE (продажі) xxx” в назві аркуша, і тепер вам потрібно замінити всі “KTE (продажі)” на “KTE” у всіх пов’язаних назвах аркушів, що ти можеш зробити? У цій статті буде представлено метод VBA для його досягнення.

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

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

Будь ласка, застосуйте нижче код VBA, щоб знайти та замінити назви вкладки аркуша в Excel. Будь ласка, виконайте наступне.

1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. А потім скопіюйте нижче код VBA у вікно коду.

Код VBA: знайти та замінити назви вкладки аркуша в Excel

Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
    Dim xNum As Long
    Dim xRepName As String
    Dim xNewName As String
    Dim xSheetName As String
    Dim xSheet As Worksheet
    xRepName = Application.InputBox("Please type in the word you will replace：", "Kutools for Excel", , , , , , 2)
    xNewName = Application.InputBox("Please type in the word you will replace with：", "Kutools for Excel", , , , , , 2)
    If xRepName = "false" Or xNewName = "false" Then Exit Sub
    On Error GoTo ExitLab
    For Each xSheet In ActiveWorkbook.Sheets
        xSheetName = xSheet.Name
        xNum = InStr(1, xSheetName, xRepName)
        If xNum > 0 Then
            xSheet.Name = Replace(xSheetName, xRepName, xNewName)
        End If
ExitLab:
    Next
End Sub

3 Натисніть кнопку F5 клавіша для запуску коду.

4. Тоді a Kutools для Excel спливає діалогове вікно, введіть слова назв аркушів, які ви замінюєте, та клацніть на OK кнопку. Дивіться знімок екрана:

5 У другому Kutools для Excel діалогове вікно, введіть слово, яке ви заміните, а потім клацніть на OK кнопки.

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

примітки: Наведений вище код чутливий до регістру.

Статті по темі:

• Як знайти та замінити всі порожні клітинки певним числом або текстом у Excel?
• Як замінити коми новими рядками (Alt + Enter) у клітинках Excel?
• Як створити макрокод для пошуку та заміни тексту в Excel?
• Як знайти значення в комірці зі списком, відокремленим комами в Excel?
• Як знайти перетин двох списків стовпців у Excel?