¿Cómo evitar que Excel numere automáticamente la columna duplicada en el encabezado de una tabla?

En Excel, al escribir un encabezado de columna duplicado en una tabla, se le añade automáticamente un número (por ejemplo: nombre, nombre1, nombre2), y dicho número no se puede eliminar, tal como muestra la siguiente captura de pantalla. Para evitar esta numeración automática en los encabezados de columna duplicados, basta con añadir un espacio al final del encabezado duplicado. A continuación, encontrará un código VBA que le permitirá repetir el encabezado y agregar automáticamente espacios al final, diferenciándolos visualmente sin que parezcan distintos.

Añadir automáticamente Espacios al final al encabezado

Nota: los métodos que se explican en este tutorial se han probado en Excel 2021; es posible que otras versiones de Excel presenten ligeras diferencias.

1. Escriba los encabezados que desea repetir en una columna y, a continuación, pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo para crear un nuevo módulo en la ventana de Microsoft Visual Basic para Aplicaciones y, a continuación, copie y pegue el siguiente código.

VBA: Repetir y añadir Espacios al final

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

3. Haga clic en el botón Ejecutar en la cinta de opciones o pulse la tecla F5 para ejecutar el código. En el primer cuadro de diálogo que aparezca, seleccione los encabezados que desea repetir y haga clic en Aceptar.

4. En el segundo cuadro de diálogo que aparece, introduzca el número de veces que desea repetir y haga clic en Aceptar.

5. Seleccione la celda en la que desea mostrar los encabezados repetidos y haga clic en Aceptar.

Ahora los encabezados se han repetido y se les han añadido espacios al final.

6. Seleccione los encabezados y cópielos pulsando Ctrl+C, y péguelos en la tabla correspondiente pulsando Ctrl+V.

Ahora puede observar que la tabla presenta encabezados de columna duplicados sin numeración.

Descubra la magia de Excel con KUTOOLS AI

• Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
• fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
• Programación en VBA: Escriba e implemente código VBA con facilidad.
• Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
• Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.

Potencie sus capacidades en Excel con herramientas impulsadas por inteligencia artificial.Descárguelo ahora¡y experimente una eficiencia como nunca antes!

---

Las mejores herramientas de productividad para Office

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en 80 %

• Super Barra de fórmulas (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (lea y edite cómodamente un gran número de celdas); Pegar en Rango de filtro...
• Fusionar celdas, filas o columnas manteniendo los datos; dividir el contenido de las celdas; combinar filas duplicadas y sumar o calcular el promedio...; evitar entradas duplicadas en celdas; comparar rangos...
• Seleccionar filas duplicadas o únicas;Seleccionar filas en blanco (todas las celdas vacías);Búsqueda avanzada y búsqueda difusa en varios libros de trabajo; selección aleatoria…
• Copia celdas exactamente sin que cambien las referencias de las fórmulas; crea referencias automáticamente en varias hojas; inserta viñetas, casillas de verificación y mucho más...
• Favoritas e inserción rápida de fórmulas, rangos, gráficos e imágenes; cifrado de celdas con contraseña; creación de listas de correo y envío de correos electrónicos…
• Extraer texto, agregar texto, eliminar caracteres en una posición, eliminar espacios; crear e imprimir estadísticas de la página de datos; convertir entre contenido de celdas y comentarios...
• Super Filtro (guarde y aplique esquemas de filtro en otras hojas); Clasificación avanzada por mes, semana, día, frecuencia y más; Filtro especial por negrita, cursiva…
• Combina libros y hojas de trabajo; combina tablas basadas en una columna clave; divide datos en varias hojas; conversión masiva de archivos XLS, XLSX y PDF...
• Agrupación en Tabla Dinámica por número de semana, día de la semana y más…Mostrar celdas desbloqueadas y bloquear la selección con colores diferenciados;Resaltar celdas que contienen fórmulas o nombres…

Leer más...Prueba gratuita de 30 días con todas las funciones...Comprar... 

---

Office Tab: incorpora una interfaz con pestañas en Office y hace su trabajo 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 hacerlo en ventanas separadas.
• ¡Aumente su productividad en un 50 % y ahorre cientos de clics del ratón cada día!

Leer más...Prueba gratuita de 30 días con todas las funciones...Comprar...