Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як створити кілька робочих аркушів зі списку значень комірок?

Чи існують якісь швидкі чи прості методи для створення декількох аркушів на основі списку значень комірок в Excel? У цій статті я розповім про кілька хороших прийомів для вирішення цієї роботи.

Створіть кілька аркушів зі списку значень комірок із кодом VBA

Створіть кілька аркушів зі списку значень комірок за допомогою Kutools для Excel


стрілка синя права міхур Створіть кілька аркушів зі списку значень комірок із кодом VBA

Щоб швидко створити кілька нових робочих аркушів, названих зі списком значень комірок, вам може допомогти наступний код VBA.

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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 ключ для запуску цього коду, і нові аркуші були створені після всіх аркушів у поточній книзі, див. знімок екрана:

doc створити кілька аркушів 1


стрілка синя права міхур Створіть кілька аркушів зі списку значень комірок за допомогою Kutools для Excel

Якщо ви не знаєте вищевказаного коду, ось зручний інструмент -Kutools для Excel, З його Створіть робочі аркуші послідовностей функція, робочі аркуші будуть створені на основі значень комірок у новій книзі.

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. 

після установки Kutools для Excel, будь ласка, зробіть так:

1. Клацання Kutools Plus > Робочий аркуш > Створіть робочі аркуші послідовностей, див. скріншот:

2, в Створіть робочі аркуші послідовностей діалогове вікно:

(1.) Виберіть один аркуш, на основі якого ви хочете створити аркуші послідовностей;

(2.) Потім виберіть дані в діапазоні від Назви аркушів на основі і натисніть doc створити кілька аркушів 4, щоб вибрати значення комірки, які ви хочете використовувати.

doc створити кілька аркушів 3

3. А потім клацніть Ok , робочі аркуші були створені з іменами значень комірок у новій книзі, див. знімок екрана:

doc створити кілька аркушів 5

Натисніть Завантажити та безкоштовну пробну версію Kutools для Excel зараз!


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Guest User · 1 years ago
    Thank you for posting this. I followed the directions and it worked perfectly.

  • To post as a guest, your comment is unpublished.
    WK · 1 years ago
    I tried using the VBA code, it is creating "nameless" worksheets, so sheet1 , 2 , 3 and so on, rather than using the value in the cell as the sheet's name. I tried to fixed by changing the data type in the cell to text , same issue…


    any ideas?
    • To post as a guest, your comment is unpublished.
      Theresa · 2 months ago
      I had this issue.  to correct:  
      1. only 31 characters allowed for worksheet names
      2. no special characters + = ( ) [ ] \  / , :  etc...find and replace with a space

  • To post as a guest, your comment is unpublished.
    Smitha · 2 years ago
    This is of great help. I could save so much time. Thank you so much for your time and for helping us with your wonderful code.
  • To post as a guest, your comment is unpublished.
    Craig · 2 years ago
    This works great, how could you incorporate a template into each created tab? i.e. copy and paste from a template into each newly created sheet
  • To post as a guest, your comment is unpublished.
    Nathan · 3 years ago
    First time using VBA code in Excel. Worked perfectly on the first try. Thanks for posting this.
  • To post as a guest, your comment is unpublished.
    amin · 3 years ago
    and it creates a lot of sheets even if the list is empty... what if i want to create sheets based on cells that have value?
  • To post as a guest, your comment is unpublished.
    GUEST · 3 years ago
    Better version. This will delete created sheet if exist another sheet with the same name. And added inputbox to avoid from manual code modification to select range.


    Sub AddSheetsFromCells()

    Dim xRg As Range, wBk As Workbook
    Set wBk = ActiveWorkbook

    On Error GoTo Quit
    Set dbRange = Application.InputBox("Range: ", "Select Range", _
    Application.Selection.Address, Type:=8)

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    For Each xRg In dbRange
    With wBk
    .Sheets.Add After:=.Sheets(.Sheets.Count)
    On Error Resume Next
    ActiveSheet.Name = xRg.Value
    If Err.Number = 1004 Then
    Debug.Print Chr(34) & xRg.Value & Chr(34) & " already used as a sheet name"
    .ActiveSheet.Delete
    End If
    On Error GoTo 0
    End With
    Next xRg

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Quit:

    End Sub
    • To post as a guest, your comment is unpublished.
      Josh · 2 years ago
      this is awesome...... thank-you very much .is there somewhere where there is a public repository for vba codes?
    • To post as a guest, your comment is unpublished.
      blackcatcivilcraigd@gmail.com · 2 years ago
      What if i wanted each newly created sheet to have a template pasted into it from a template sheet? The template would have formatting and formulas only

      Thanks
      • To post as a guest, your comment is unpublished.
        prachi · 2 years ago
        i also need to know this. did u figure out ?
        • To post as a guest, your comment is unpublished.
          steph · 2 years ago
          Sub UpdateMAPs()
          Dim LR As Long, i As Long
          Application.ScreenUpdating = False
          With Sheets("Team List")
          LR = .Range("E" & Rows.Count).End(xlUp).Row
          For i = 2 To LR
          Sheets("Blank MAP").Copy Before:=Sheets("Blank MAP")
          ActiveSheet.Name = .Range("E" & i).Value
          Next i
          End With
          Application.ScreenUpdating = True
          End Sub

          this worked for me from https://www.mrexcel.com/forum/excel-questions/553308-copy-worksheet-rename-cell-value.html
          • To post as a guest, your comment is unpublished.
            Fred · 2 years ago
            This is amazing! Thank you so much!
    • To post as a guest, your comment is unpublished.
      Richard Pigford · 3 years ago
      This appears to work great for what I am attempting to do with one exception... It is creating blank worksheets... I want to create a copy of an existing worksheet for each row in another worksheet. Is there anyway to do that?