Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo crear múltiples hojas de trabajo de una lista de valores de celda?

¿Hay algún método rápido o sencillo para crear varias hojas de trabajo basadas en una lista de valores de celda en Excel? En este artículo, hablaré sobre algunos buenos trucos para resolver este trabajo.

Crear varias hojas de cálculo de una lista de valores de celda con código VBA

Crear varias hojas de cálculo de una lista de valores de celda con Kutools para Excel

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools para Excel: la mejor herramienta de productividad de Office resolverá la mayoría de sus problemas de Excel
  • Texto automático: Cree sus gráficos, imágenes, celdas, fórmulas complejas y reutilizar ellos rápidamente en el futuro.
  • Más de características de texto 20: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convertir números y monedas a palabras en inglés ...
  • Herramientas de fusión: Múltiples libros de trabajo y hojas en uno; Fusionar múltiples celdas / filas / columnas y guardar datos; Combinar filas duplicadas y sumar ...
  • Herramientas divididas: Dividir datos en varias hojas en función del valor; Un libro de trabajo para múltiples archivos Excel, PDF o CSV; De una columna a varias columnas ...
  • Saltar pasta Filas ocultas / filtradas; Cuenta y suma por color de fondo; Crear lista de correo y Enviar correos electrónicos por el valor de la celda...
  • Súper filtro: Cree esquemas de filtro avanzados y aplique a cualquier hoja; Tipo de Propiedad por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de potentes funciones de 300; Funciona con Office 2007-2019 y 365; Soporta todos los idiomas; Fácil despliegue en compañía; Funciones completas de prueba gratuita de 60-day.

flecha azul burbuja derecha Crear varias hojas de cálculo de una lista de valores de celda con código VBA

Para crear rápidamente múltiples nuevas hojas de trabajo que se nombran con una lista de valores de celda, el siguiente código de VBA puede ayudarlo.

1. Mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

Código de VBA: cree varias hojas de trabajo de una lista de celdas:

Sub AddSheets()
'Updateby Extendoffice 20161215
    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

Nota: En el código anterior, A1: A7 es el rango de celdas en el que desea crear hojas, por favor cámbielo a su necesidad.

3. Entonces presione F5 clave para ejecutar este código, y las nuevas hojas se han creado después de todas las hojas en el libro actual, vea la captura de pantalla:

doc crear varias hojas 1


flecha azul burbuja derecha Crear varias hojas de cálculo de una lista de valores de celda con Kutools para Excel

Si no eres hábil con el código anterior, aquí hay una herramienta práctica-Kutools for Excel, Con su Crear hojas de trabajo de secuencia función, las hojas de trabajo se crearán en función de los valores de celda en un nuevo libro de trabajo.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Hacer clic Empresa > Hoja de trabajo > Crear hojas de trabajo de secuencia, mira la captura de pantalla:

doc crear varias hojas 2

2. En la Crear hojas de trabajo de secuencia caja de diálogo:

(1.) Seleccione una hoja de trabajo en la que desee crear hojas de trabajo de secuencia basadas en;

(2.) Luego seleccione Información en una opción de rango de la Nombres de hojas basados ​​en cuadro de lista, y haga clic doc crear varias hojas 4 para seleccionar los valores de celda que desea usar.

doc crear varias hojas 3

3. Y luego haz clic Ok botón, las hojas de cálculo se han creado con los nombres de los valores de celda en un nuevo libro, vea la captura de pantalla:

doc crear varias hojas 5

¡Haz clic en Descargar y prueba gratuita Kutools para Excel ahora!


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Funciona con Office 2007-2019 y 365. Soporta todos los idiomas. Fácil despliegue en compañía. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    Smitha · 1 months 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 · 7 months 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 · 1 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 · 1 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 · 1 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 · 5 days 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.
      Craig Dickeson · 7 months 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 · 1 months ago
        i also need to know this. did u figure out ?
    • To post as a guest, your comment is unpublished.
      Richard Pigford · 1 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?