¿Cómo crear varias hojas de cálculo a partir de una lista de valores en celdas?
¿Buscas una forma rápida y sencilla de crear varias hojas de cálculo en Excel a partir de una lista de valores de celdas? En este artículo, te mostraré algunos trucos útiles para lograrlo.
Crear varias hojas de cálculo a partir de una lista de valores de celdas con código VBA
Crear varias hojas de cálculo a partir de una lista de valores de celdas con Kutools para Excel
Crear varias hojas de cálculo a partir de una lista de valores de celdas con código VBA
Para crear rápidamente varias hojas de cálculo nuevas cuyos nombres se basen en una lista de valores de celdas, el siguiente código VBA puede ayudarle.
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Crear varias hojas de cálculo a partir de una lista de celdas:
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
Nota: En el código anterior, A1:A7 es el rango de celdas a partir del cual desea crear las hojas; cámbielo según sus necesidades.
3. A continuación, pulse la tecla F5 para ejecutar este código y las nuevas hojas se crearán al final de todas las hojas del libro de trabajo actual. Consulte la captura de pantalla:
Crear varias hojas de cálculo a partir de una lista de valores de celdas con Kutools para Excel
Si no domina el código anterior, aquí tiene una herramienta práctica: Kutools para Excel, con su función Crear hojas de cálculo de secuencia creará automáticamente hojas de cálculo basadas en los valores de las celdas en un nuevo libro de trabajo.
Tras instalar Kutools para Excel, siga estos pasos:
1. Haga clic en KUTOOLS PLUS > Hoja de cálculo > Crear hojas de cálculo de secuencia; consulte la captura de pantalla:
2. En el cuadro de diálogo Crear hojas de cálculo de secuencia:
(1.) Seleccione una hoja de cálculo en la que basar las nuevas hojas;
(2.) A continuación, seleccione la opción Datos en un rango de la lista Nombre de hoja de cálculo basado en y haga clic en el botón 
para seleccionar los valores de celda que desea utilizar.
3. A continuación, haga clic en el botón Aceptar y las hojas de cálculo se crearán automáticamente con los nombres basados en los valores de las celdas, en un nuevo libro de trabajo. Consulte la captura de pantalla:
¡Haga clic en Descargar y pruebe gratis Kutools para Excel ahora!
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos