¿Cómo encontrar y reemplazar los nombres de las pestañas de las hojas en Excel?
Es fácil encontrar y reemplazar valores en celdas en Excel. Pero, ¿hay alguna forma de buscar y reemplazar los nombres de las hojas en Excel? Por ejemplo, como se muestra a continuación, tiene varias hojas de trabajo que contienen "KTE (Ventas) xxx" en el nombre de la hoja, y ahora debe reemplazar todas las "KTE (Ventas)" por "KTE" en todos los nombres de hojas relacionados, ¿qué ¿Puedes hacer? Este artículo presentará un método VBA para lograrlo.
Busque y reemplace los nombres de las pestañas de la hoja con código VBA
Busque y reemplace los nombres de las pestañas de la hoja con código VBA
Aplique el código VBA a continuación para buscar y reemplazar los nombres de las pestañas de las hojas en Excel. Haz lo siguiente.
1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Y luego, copie el código VBA a continuación en la ventana de código.
Código de VBA: busque y reemplace los nombres de las pestañas de las hojas en Excel
Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
Dim xNum As Long
Dim xRepName As String
Dim xNewName As String
Dim xSheetName As String
Dim xSheet As Worksheet
xRepName = Application.InputBox("Please type in the word you will replace:", "Kutools for Excel", , , , , , 2)
xNewName = Application.InputBox("Please type in the word you will replace with:", "Kutools for Excel", , , , , , 2)
If xRepName = "false" Or xNewName = "false" Then Exit Sub
On Error GoTo ExitLab
For Each xSheet In ActiveWorkbook.Sheets
xSheetName = xSheet.Name
xNum = InStr(1, xSheetName, xRepName)
If xNum > 0 Then
xSheet.Name = Replace(xSheetName, xRepName, xNewName)
End If
ExitLab:
Next
End Sub
3. presione el F5 clave para ejecutar el código.
4. Entonces un Kutools for Excel aparece el cuadro de diálogo, ingrese las palabras de los nombres de las hojas que reemplazará y haga clic en el OK botón. Ver captura de pantalla:
5. En el segundo Kutools for Excel cuadro de diálogo, ingrese la palabra con la que reemplazará, y luego haga clic en el OK del botón.
Luego, todas las palabras relacionadas en los nombres de las pestañas de la hoja se reemplazan con una especificada como se muestra a continuación.
Note: El código anterior distingue entre mayúsculas y minúsculas.
Artículos relacionados:
- ¿Cómo encontrar y reemplazar todas las celdas en blanco con cierto número o texto en Excel?
- ¿Cómo reemplazar las comas con nuevas líneas (Alt + Enter) en celdas en Excel?
- ¿Cómo crear un código de macro para lograr buscar y reemplazar texto en Excel?
- ¿Cómo encontrar valor en una celda con una lista separada por comas en Excel?
- ¿Cómo encontrar la intersección de dos listas de columnas en Excel?
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!