Как да създадете няколко работни листа от списък със стойности на клетки?
Има ли бързи или лесни методи за създаване на множество работни листове въз основа на списък със стойности на клетки в Excel? В тази статия ще говоря за някои добри трикове за решаване на тази задача.
Създайте няколко работни листа от списък със стойности на клетки с VBA код
Създайте множество работни листове от списък със стойности на клетки с Kutools за Excel
Създайте няколко работни листа от списък със стойности на клетки с VBA код
За бързо създаване на множество нови работни листове, които са наименувани със списък от стойности на клетки, следният VBA код може да ви помогне.
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Създайте няколко работни листа от списък с клетки:
Sub AddSheets()
'Updateby Extendoffice
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Application.ScreenUpdating = False
For Each xRg In wSh.Range("A1:A7")
With wBk
.Sheets.Add after:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
If Err.Number = 1004 Then
Debug.Print xRg.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next xRg
Application.ScreenUpdating = True
End Sub
Забележка: В горния код, A1: A7 е диапазонът от клетки, въз основа на който искате да създадете листове, моля, променете го според вашите нужди.
3. След това натиснете F5 ключ за изпълнение на този код и новите листове са създадени след всички листове в текущата работна книга, вижте екранната снимка:
Създайте множество работни листове от списък със стойности на клетки с Kutools за Excel
Ако не сте опитни с горния код, ето един удобен инструмент -Kutools за Excel, Със своята Създаване на работни листове за последователност функция, работните листове ще бъдат създадени въз основа на стойностите на клетките в нова работна книга.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Щракнете Kutools плюс > Работен лист > Създаване на работни листове за последователност, вижте екранна снимка:
2. В Създаване на работни листове за последователност диалогов прозорец:
(1.) Изберете един работен лист, въз основа на който искате да създадете последователни работни листове;
(2.) След това изберете Дата в гама вариант от Имена на листове, базирани на списъчно поле и щракнете бутон, за да изберете стойностите на клетките, които искате да използвате.
3, И после щракнете върху Ok работните листове са създадени с имената на стойностите на клетките в нова работна книга, вижте екранната снимка:
Щракнете върху Изтегляне и безплатна пробна версия Kutools за Excel сега!
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!