Обикновено, за да преименуваме работни листове в Excel, можем бързо да щракнете два пъти върху раздела на листа или да щракнете с десния бутон върху раздела на листа, за да изберете командата Преименуване за преименуване на работни листове. Това е доста удобно за преименуване на един или два работни листа в Excel, но ако искаме да преименуваме няколко работни листа в рамките на една операция, как можем да го направим?

Използване на командата Rename за преименуване на работни листове

Използване на удобен инструмент за удобно преименуване на множество работни листове

Използване на VBA код за преименуване на множество работни листове

Използване на командата Rename за преименуване на работни листове

невероятно! Използване на ефективни раздели в Excel като Chrome, Edge, Firefox и Safari!
Спестете 50% от времето си и намалете хилядите кликвания на мишката за вас всеки ден!

Можем бързо да преименуваме работни листове в Excel с Преименувам команда съгласно следните процедури:

Щракнете с десния бутон върху раздела на листа, който искате да преименувате, и изберете Преименувам команда от менюто с десен бутон. Или щракнете два пъти върху раздела на листа, за да преименувате работния лист. След това въведете ново име и след това натиснете Въведете клавиш, за да го преименувате, вижте екранната снимка:

С това Преименувам команда, можете да преименувате само един работен лист наведнъж, за целите на преименуването на няколко работни листа, моля, повторете горните операции.

Използване на удобен инструмент за удобно преименуване на множество работни листове

Използване на VBA код за преименуване на множество работни листове

Тук ще ви представя два VBA кода за преименуване на множество работни листове.

Код 1. Код на VBA за преименуване на няколко работни листа наведнъж с името, което искате

Използвайки следния VBA код, можете бързо да преименувате всички работни листове от текущата работна книга със същия префикс в техните имена на работни листове, като например: KTE-order1, KTE-order 2 и KTE-order 3...

1. Кликнете върху Софтуерен Инженер > Visual Basic, и кликнете Поставете > Модули в Microsoft Visual Basic приложение Windows.

2. Моля, копирайте и поставете следния код в Модули.

VBA: Преименувайте всички листове, като въведете конкретно име

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  Кликнете  бутон, за да изпълните кода, и въведете името, което искате, в изскачащия диалогов прозорец. вижте екранни снимки:

4. Кликнете OK. След това можете да видите, че всички листове са преименувани.

2. VBA код за преименуване на множество работни листове по конкретна стойност на клетка във всеки работен лист на активната работна книга

Използвайки следния VBA код, той ще преименува всички работни листове от текущата работна книга, като използва съдържанието на конкретна клетка. Например, можете да въведете името на работния лист в клетката A1 на цялата работна книга и след това работният лист ще бъде преименуван като стойността на клетката A1.

1.  Моля, посочете клетка, която да съдържа името на работния лист във всеки работен лист и въведете името на работния лист в нея. В този пример ще напиша името на работния лист в клетка A1 на всеки работен лист.

2.  Кликнете Софтуерен Инженер > Visual Basic, и кликнете Поставете > Модули в Microsoft Visual Basic приложение Windows.

3.  Моля, копирайте и поставете следния код в модула.

VBA: Преименувайте работни листове по конкретно съдържание на клетка

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4.  Кликнете  бутон за изпълнение на кода. Всички работни листове се преименуват въз основа на съдържанието на клетката на A1.

Демонстрация: Преименувайте множество работни листове с Kutools за Excel

Свързани статии