Як я можу перейменувати кілька аркушів одночасно за допомогою коду VBA? У Excel ви можете призначити унікальне ім’я кожній вкладці аркуша у своїй робочій книзі, щоб ви могли легко знайти потрібну вкладку. У цьому посібнику ми покажемо вам 4 прості способи перейменування однієї або кількох вкладок аркуша в Excel.
Примітка:Назва вкладки аркуша може містити не більше 30 символів.
Варіант 1. Перейменуйте вкладку аркуша за допомогою контекстного меню «Перейменувати».
Клацніть правою кнопкою миші певну вкладку, яку потрібно перейменувати. Якщо клацнути правою кнопкою миші, ви побачите багато варіантів. Звідти виберітьПерейменуватиконтекстне меню.
Введіть ім’я, яке потрібно дати вкладці аркуша, і натисніть клавішу Enter. Повторіть цю процедуру для кожної вкладки, яку потрібно перейменувати.
Варіант 2. Перейменуйте вкладку аркуша, двічі клацнувши вкладку
Інший спосіб перейменування вкладки аркуша в Excel - подвійне клацання вкладки аркуша. Якщо ви двічі клацнете вкладку аркуша внизу, назву вкладки (наприклад, Аркуш1) буде виділено. Після цього вам залишається лише ввести нове ім’я.
Варіант 3. Перейменуйте вкладку аркуша за допомогою комбінації клавіш
Виберіть вкладку аркуша, яку потрібно перейменувати, а потім натисніть комбінацію клавішвсе+THE+Х+Р(Просто натисніть ці 4 клавіші на клавіатурі одну за одною), введіть ім’я та натисніть Enter.
Варіант 4. Перейменуйте кілька вкладок робочого аркуша за допомогою коду VBA
Це може зайняти багато часу, якщо ви використовуєте наведені вище методи для перейменування багатьох вкладок робочого аркуша. Щоб спростити роботу, ви можете перейменувати кілька вкладок аркуша за допомогою коду VBA.
- Відкривши робочу книгу Excel, натиснітьвсе+F11ярлик для відкриття редактора Visual Basic. Клацніть правою кнопкою миші VBAProject на лівій панелі та виберітьВставка->Модульщоб вставити новий модуль.
- Скопіюйте наведений нижче код VBA та вставте його на праву панель редактора VBA (вікно «Модуль1»). Натисніть набігтименю та виберітьЗапустіть макрос.
Більше читання:Як видалити пунктирні кола на вкладках Chrome і бліді вкладки в Edge
Sub RenamingSheets()
nmbr = InputBox("What's the first number you want to name the sheets?", "Renaming Sheets")
For ws = 1 To Worksheets.Count
Sheets(ws).Name = "KB" & nmbr
nmbr = nmbr + 1
Next ws
End Sub
- Усі вкладки вашого робочого аркуша буде швидко перейменовано з новими іменами, наприклад «KB1». Ви можете змінити код VBA, щоб перейменувати робочий аркуш на те, що вам потрібно.
