¿Cómo cambiar el nombre de varias hojas en Excel?

Normalmente, para renombrar hojas en Excel, basta con hacer doble clic rápidamente en la pestaña de la hoja o bien hacer clic con el botón derecho y seleccionar la opción **Renombrar**. Este método es ideal cuando se trata de cambiar el nombre de una o dos hojas, pero ¿cómo podemos renombrar varias hojas de forma simultánea en una sola operación?

Usar el comando Renombrar para Renombrar hojas

Usar una herramienta práctica para renombrar cómodamente varias hojas

Usar código VBA para renombrar varias hojas

Usar el comando Renombrar para Renombrar hojas

Podemos cambiar rápidamente el nombre de Renombrar hojas en Excel mediante el comando Renombrarsiguiendo los siguientes pasos:

Haga clic con el botón derecho en la pestaña de la hoja que desea renombrar y seleccione el comando Renombrar en el menú contextual. O bien, haga doble clic directamente en la pestaña para editar su nombre. A continuación, escriba un nombre nuevo y pulse la tecla Intro para confirmar el cambio. Vea la captura de pantalla:

Con este comando Renombrar, solo puede cambiar el nombre de una hoja a la vez. Para renombrar varias hojas, repita los pasos anteriores.

Usar una herramienta práctica para renombrar cómodamente varias hojas

Usar código VBA para renombrar varias hojas

A continuación, le presentamos dos códigos VBA para renombrar varias hojas de cálculo.

Código 1. Código VBA para cambiar el nombre de varias hojas simultáneamente al nombre que usted elija

Mediante el siguiente código VBA, puede cambiar rápidamente el nombre de todas las hojas del Libro de trabajo actual añadiendo el mismo prefijo en sus Nombre de la hoja de cálculo, por ejemplo: KTE-pedido1, KTE-pedido 2 y KTE-pedido 3…

1. Haga clic en Desarrollador > Visual Basic y, a continuación, haga clic en Insertar > Módulo en la ventana de Microsoft Visual Basic para Aplicaciones Windows.

2. Copie y pegue el siguiente código en el Módulo.

VBA: Cambiar el nombre de todas las hojas introduciendo un nombre específico

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3. Haga clic en el botón para ejecutar el código e introduzca el nombre deseado en el cuadro de diálogo emergente. Vea las capturas de pantalla:

4. Haga clic en Aceptar. Así podrá ver que todas las hojas han cambiado de nombre.

2. Código VBA para renombrar varias hojas según el valor de una celda específica en cada hoja del libro de trabajo actual

Con el siguiente código VBA, se renombrarán todas las hojas del libro de trabajo actual según el contenido de una celda específica. Por ejemplo, si escribe el nombre deseado en la celda A1 de cada hoja, esta adoptará automáticamente como título el valor contenido en dicha celda.

1. Especifique una celda para incluir el nombre de la hoja de cálculo en cada hoja y escríbalo en ella. En este ejemplo, escribiré el nombre de la hoja de cálculo en la celda A1 de cada hoja.

2. Haga clic en Desarrollador > Visual Basic y, a continuación, haga clic en Insertar > Módulo en la ventana de Microsoft Visual Basic para Aplicaciones.

3. Copie y pegue el siguiente código en el módulo.

VBA: Renombrar hojas mediante el contenido de una celda específica

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4. Haga clic en el botón para ejecutar el código. Todas las hojas se renombrarán según el contenido de la celda A1.

Demostración: Cambiar el nombre de varias hojas con Kutools para Excel

Artículos relacionados