The Excel? Følgende VBA-kode kan hjelpe deg med å legge til noen regneark som er oppkalt basert på celleinnholdet etter eksisterende regneark. Vennligst gjør som dette:
1. Hold nede ALT + F11 tastene, da det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Legge sekvens regneark basert på listen over celler
Sub CreateWorkSheetByRange () 'Update 20130829Dim WorkRng Som RangeDim Ws Som WorksheetDim arr Som VariantOn Error Resume NextxTitleId = " KutoolsforExcel "Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox (" Range ", xTitleId, WorkRng.Address, Type: = 8) arr = WorkRng.ValueApplication.ScreenUpdating = FalseFor i = 1 Til UBound (arr, 1) For j = 1 Til UBound (arr, 2) Set Ws = Worksheets.Add (etter: = Application.ActiveSheet) Ws.Name = arr (i, j) NextNextApplication.ScreenUpdating = TrueEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og deretter en rask boksen vil være popped ut for deg å velge området som du ønsker å bruke. Se skjermbilde:
4. Og klikk deretter på OK, har regnearkene som er oppkalt etter celleverdiene lagt etter eksisterende regneark. Se skjermbilde:
Merknader:
1. De nye regneark vil bli satt inn etter gjeldende regneark.
To. Hvis det valgte området inkludert tomme celler, blir regnearkene som heter basert på standard. Se skjermbilder: