Як знайти та замінити назви вкладки аркуша в 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 Sub3 Натисніть кнопку F5 клавіша для запуску коду.
4. Тоді a Kutools для Excel спливає діалогове вікно, введіть слова назв аркушів, які ви замінюєте, та клацніть на OK кнопку. Дивіться знімок екрана:
5 У другому Kutools для Excel діалогове вікно, введіть слово, яке ви заміните, а потім клацніть на OK кнопки.
Потім усі споріднені слова в іменах вкладки аркуша замінюються на вказане, як показано нижче.
примітки: Наведений вище код чутливий до регістру.
Статті по темі:
- Як знайти та замінити всі порожні клітинки певним числом або текстом у Excel?
- Як замінити коми новими рядками (Alt + Enter) у клітинках Excel?
- Як створити макрокод для пошуку та заміни тексту в Excel?
- Як знайти значення в комірці зі списком, відокремленим комами в Excel?
- Як знайти перетин двох списків стовпців у Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
