¿Cómo evitar la numeración automática en los encabezados de columna duplicados en una tabla de Excel?

En Excel, cuando escribes un encabezado de columna duplicado en una tabla, se le añadirá automáticamente un número como nombre, nombre1, nombre2, y este número no se puede eliminar, como muestra la siguiente captura de pantalla. Para evitar la numeración automática en los encabezados de columna duplicados en una tabla, puedes agregar espacios al final del encabezado duplicado. Aquí tienes un código VBA que puede ayudarte a repetir el encabezado y agregar automáticamente espacios al final para que sean diferentes pero se vean igual.

Agregar espacios al final del encabezado automáticamente

Nota: Los métodos proporcionados en este tutorial han sido probados en Excel 2021; puede haber algunas diferencias en distintas versiones de Excel.

1. Escribe los encabezados que deseas repetir en una columna, luego presiona las teclas Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo para crear un nuevo módulo en la ventana de Microsoft Visual Basic para Aplicaciones, luego copia y pega el siguiente código en él.

VBA: Repetir y agregar 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. Haz clic Ejecutar  en el botón de la cinta o presiona F5 para activar el código. En el primer cuadro de diálogo emergente, selecciona los encabezados que deseas repetir. Haz clic Aceptar.

4. En el segundo cuadro de diálogo emergente, escribe el número de veces que deseas repetir. Haz clic Aceptar.

5. Selecciona una celda donde deseas que se muestren los encabezados repetidos. Haz clic Aceptar.

Ahora los encabezados se han repetido y se les han agregado espacios al final.

6. Selecciona los encabezados y cópialos presionando Ctrl + C, y pégalos de vuelta en la tabla que necesitas presionando Ctrl + V.

Ahora puedes ver que la tabla tiene encabezados de columna duplicados sin numeración.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

---

Las Mejores Herramientas de Productividad para Office

Kutools para Excel resuelve la mayoría de tus problemas y aumenta tu productividad en un 80%

• Barra de Fórmulas Super (editar fácilmente múltiples líneas de texto y fórmulas); Diseño de Lectura (leer y editar fácilmente grandes cantidades de celdas); Pegar en Rango Filtrado...
• Combinar Celdas/Filas/Columnas manteniendo los datos; Dividir contenido de celdas; Combinar filas duplicadas y Sumar/Promediar... Prevenir celdas duplicadas; Comparar rangos...
• Seleccionar filas duplicadas o únicas; Seleccionar filas en blanco (todas las celdas están vacías); Búsqueda Avanzada y Búsqueda Difusa en muchos libros de trabajo; Selección Aleatoria...
• Copia Exacta de múltiples celdas sin cambiar la referencia de la fórmula; Crear automáticamente referencias a múltiples hojas; Insertar viñetas, casillas de verificación y más...
• Favoritos e inserción rápida de fórmulas, rangos, gráficos e imágenes; Encriptar celdas con contraseña; Crear lista de correo y enviar correos electrónicos...
• Extraer texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir estadísticas de página; Convertir entre el contenido de las celdas y los comentarios...
• Super Filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes/semana/día, frecuencia y más; Filtro especial por negrita, cursiva...
• Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión masiva de xls, xlsx y PDF...
• Agrupación de Tabla Dinámica por número de semana, día de la semana y más... Mostrar celdas desbloqueadas, bloqueadas por diferentes colores; Resaltar celdas que tienen fórmula/nombre...

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

---

Office Tab - lleva la interfaz con pestañas a Office, y hace que tu trabajo sea mucho más fácil

• Habilitar edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
• Abrir y crear varios documentos en nuevas pestañas de la misma ventana, en lugar de en ventanas nuevas.
• ¡Aumenta tu productividad en un 50%, y reduce cientos de clics del ratón cada día!

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