Как да създадете работни листове с последователност от диапазон от клетки в Excel?
Ако имате набор от данни във вашия работен лист и сега искате да създадете поредица от работни листове въз основа на данните от клетката, вижте следната екранна снимка. Разбира се, можете да редактирате името на работния лист едно по едно ръчно, но ако има няколко имена на работни листове, които трябва да бъдат редактирани, този начин ще бъде труден и ще отнеме много време. Тук ще говоря за някои бързи трикове, които да ви помогнат.
Създайте работни листове с последователност от списък с клетки с VBA код
Създайте последователни работни листове от списък с клетки с Kutools за Excel
Създайте работни листове с последователност от списък с клетки с VBA код
Следният VBA код може да ви помогне да добавите някои работни листове, които са именувани въз основа на съдържанието на клетката след съществуващи работни листове. Моля, направете следното:
1. Задръжте натиснат ALT + F11 ключове, след това отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: добавете последователни работни листове въз основа на списък от клетки
Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
Ws.Name = arr(i, j)
Next
Next
Application.ScreenUpdating = True
End Sub
3. След това натиснете F5 за да изпълните този код, след което ще се появи поле за подкана, за да изберете диапазона, който искате да използвате. Вижте екранна снимка:
4, И после щракнете върху OK, работните листове, които са наименувани от стойностите на клетките, са добавени след съществуващия работен лист. Вижте екранна снимка:
Забележки:
1. Новите работни листове ще бъдат вмъкнати след текущия работен лист.
2. Ако избраният диапазон включва празни клетки, работните листове се именуват по подразбиране. Вижте екранни снимки:
Създайте последователни работни листове от списък с клетки с Kutools за Excel
Тук представям един удобен инструмент -Kutools за Excel, Със своята Създаване на работни листове за последователност, можете бързо да създавате работни листове с име на месец, име на ден, персонализиран списък и т.н.
Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега.
След като инсталирате Kutools за Excel, моля, направете следните стъпки:
1. Изберете диапазона, въз основа на който искате да създадете работни листове.
2. Кликнете Enterprise > Инструменти за работни листове > Създаване на работни листове за последователност, вижте екранна снимка:
3. В Създаване на работни листове за последователност изберете типа работен лист, който искате да създадете новите работни листове с последователност, и след това проверете Данни в диапазон опция, вижте екранна снимка:
4, След това кликнете OK за затваряне на диалоговия прозорец и е създадена нова работна книга, която съдържа работните листове, наименувани от избраните данни за диапазона. Вижте екранна снимка:
Забележки:
1. Ако изберете Лист 1 или Лист 2, създадените нови работни листове ще бъдат със същото форматиране като Лист 1 или Лист 2.
2. Новите работни листове се създават в нова работна книга.
3. Ако избраният диапазон включва празни клетки, работните листове се именуват по подразбиране. Вижте екранни снимки:
Кликнете, за да научите повече за тази функция за създаване на работни листове за последователност.
Свързана статия:
Как да добавя нови работни листове с персонализирани имена в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!