¿Cómo cambiar el nombre de las hojas de trabajo según los valores de celda en Excel?
El cambio de nombre de las hojas de trabajo generalmente se aplica en nuestro trabajo de Excel, pero ¿alguna vez ha intentado cambiar el nombre de las hojas de trabajo en función de los valores de celda? Por supuesto, puede cambiar el nombre de las hojas de trabajo manualmente, pero aquí este tutorial presenta algunos trucos para cambiar rápidamente el nombre de varias hojas de trabajo según los valores de las celdas, lo que puede ahorrarle tiempo de trabajo.
Cambiar el nombre de las hojas de trabajo según una celda específica con VBA
Cambiar el nombre de las hojas de trabajo en función de una celda específica con Cambiar el nombre de varias hojas de trabajo 
Cambie el nombre de las hojas de trabajo en función de un rango de contenido de celda con Cambiar el nombre de varias hojas de trabajo
Cambiar el nombre de las hojas de trabajo según una celda específica con VBA
Con VBA a continuación, puede cambiar el nombre de la hoja de trabajo relativa en función de una celda específica.
1. Seleccione la celda en la que desea cambiar el nombre de la hoja de trabajo, en este caso seleccione Celda A1. Ver captura de pantalla:
2. Prensa Alt + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana.
3. Hacer clic en recuadro > Módulo, luego pegue debajo del código VBA en el nuevo Módulo ventana.
VBA: cambie el nombre de las hojas de trabajo según los valores de una celda específica.
Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
xName = xWs.Range(xRngAddress).Value
If xName <> "" Then
xInt = 0
Set xSSh = Nothing
Set xSSh = Worksheets(xName)
While Not (xSSh Is Nothing)
Set xSSh = Nothing
Set xSSh = Worksheets(xName & "(" & xInt & ")")
xInt = xInt + 1
Wend
If xInt = 0 Then
xWs.Name = xName
Else
If xWs.Name <> xName Then
xWs.Name = xName & "(" & xInt & ")"
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub4. Prensa F5 clave para ejecutar el código VBA. Luego, todas las hojas de trabajo han sido renombradas por cada valor relativo de celda A1.
Cambiar el nombre de las hojas de trabajo en función de una celda específica con Cambiar el nombre de varias hojas de trabajo
Si tiene Kutools for Excel, no necesita guardar el código VBA, puede usar el Cambiar el nombre de varias hojas de trabajo función para cambiar rápidamente el nombre de todas las hojas de trabajo en función de sus celdas relativas.
| Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
Después instalación gratuita Kutools para Excel, haga lo siguiente:
1. Habilite el libro de trabajo al que desea cambiarle el nombre de sus hojas de trabajo.
2. Hacer clic en Kutools Más > Hoja de trabajo > Cambiar el nombre de las hojas de trabajo. Ver captura de pantalla:
3. Luego, en el cuadro de diálogo emergente, marque las hojas a las que desea cambiar el nombre Hojas de trabajo panel y seleccione uno de los Opción de cambio de nombre lo necesita, aquí reemplazaré el nombre de la hoja, luego verificar Cambiar el nombre de las hojas de trabajo con una celda específicay seleccione la celda por la que necesita cambiar el nombre. Ver captura de pantalla:
4. Hacer clic en Ok. Ahora se cambia el nombre de las hojas con contenido de celda específico.
Pero a veces, lo que necesita es cambiar el nombre de varias hojas de trabajo en función de un rango de valores de celda como se muestra a continuación, en este caso, puede elegir debajo del método.
Cambie el nombre de las hojas de trabajo en función de un rango de contenido de celda con Cambiar el nombre de varias hojas de trabajo
Con Cambiar el nombre de varias hojas de trabajo of Kutools for Excel, también puede cambiar el nombre de las hojas según un rango seleccionado.
Después instalación gratuita Kutools para Excel, haga lo siguiente:
1. Hacer clic en Kutools Más > Hoja de trabajo > Cambiar el nombre de las hojas de trabajo. Ver captura de pantalla:
2. En el Cambiar el nombre de varias hojas de trabajo cuadro de diálogo, debe especificar la configuración de la siguiente manera:
(1) Seleccione las hojas de trabajo de las que necesita cambiar el nombre Lista de hojas de trabajo;
(2) Comprobar De rango específico y seleccione los valores de celda en los que necesita cambiar el nombre;
(3) Especifique el Cambiar nombre de opciones, puedes revisar Insertar antes del nombre de la hoja original, Insertar después del nombre de la hoja originalo Reemplazar el nombre de la hoja original, y puede obtener una vista previa del resultado correspondiente en el cuadro de diálogo.
3. Hacer clic en Ok, y luego puede ver que todas las hojas de trabajo que seleccionó han cambiado de nombre según los valores de celda especificados.
Reemplazar el nombre de la hoja original
Insertar antes del nombre de la hoja original
Insertar después del nombre de la hoja original
Con la utilidad Cambiar nombre de hojas de trabajo, también puede cambiar el nombre de las hojas de trabajo con un prefijo o sufijo específico. Haga clic aquí para saber más sobre Cambiar el nombre de varias hojas de trabajo.
Cambiar el nombre de varias hojas según los valores de celda
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
