¿Cómo evitar la numeración automática en el encabezado de la columna duplicada en la tabla de Excel?

En Excel, cuando escribe el encabezado de la columna duplicada en la tabla, se agregará automáticamente un número como nombre, nombre1, nombre2 y el número no se puede eliminar como se muestra en la siguiente captura de pantalla. Para evitar la numeración automática en el encabezado de la columna duplicada en la tabla, puede agregar un espacio final al encabezado duplicado. Aquí hay un código VBA que puede ayudarlo a repetir el encabezado y agregar automáticamente espacios finales para que sean diferentes pero se vean iguales.

Agregar automáticamente espacios finales al encabezado

Nota: los métodos proporcionados en este tutorial se prueban en Excel 2021, puede haber algunos diferentes en diferentes versiones de Excel.

1. Escriba los encabezados que desea repetir en una columna, luego presione otro + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic en recuadro > Módulo para crear un nuevo módulo en el Microsoft Visual Basic para aplicaciones ventana, luego copie y pegue el siguiente código en ella.

VBA: repetir y agregar espacios finales

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. Hacer clic en Ejecutar  botón en la cinta o presione F5 para activar el código, en el primer cuadro de diálogo emergente, seleccione los encabezados que desea repetir. Hacer clic OK.

4. En el segundo cuadro de diálogo emergente, escriba las veces que desea repetir. Hacer clic OK.

5. Seleccione una celda en la que desee generar los encabezados repetidos. Hacer clic OK.

Ahora los encabezados se han repetido y agregado con espacios finales.

6. Seleccione los encabezados y cópielos presionando Ctrl + Cy péguelos nuevamente en la tabla que necesita presionando Ctrl + V.

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

Desbloquee Excel Magic con Kutools AI

• Ejecución inteligente: realice operaciones celulares, analice datos y cree gráficos, todo ello controlado por comandos simples.
• Fórmulas personalizadas: Genere fórmulas personalizadas para optimizar sus flujos de trabajo.
• Codificación VBA: Escriba e implemente código VBA sin esfuerzo.
• Interpretación de fórmulas: Comprenda fórmulas complejas con facilidad.
• Traducción de textos: Rompe las barreras del idioma dentro de tus hojas de cálculo.

Mejore sus capacidades de Excel con herramientas impulsadas por IA. Descargar Ahora ¡Y experimente la eficiencia como nunca antes!

---

Las mejores herramientas de productividad de oficina

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

• Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
• Combinar celdas / filas / columnas y conservación de datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir celdas duplicadas; Comparar rangos...
• Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
• Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
• Fórmulas favoritas e insertar rápidamente, Rangos, gráficos e imágenes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
• Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
• Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
• Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
• Agrupación de tablas dinámicas por número de semana, día de la semana y más ... Mostrar celdas bloqueadas y desbloqueadas por diferentes colores; Resalte las celdas que tienen fórmula / nombre...

Leer más ... Características completas Prueba gratuita de 30 días ... Compra... 

---

Pestaña de Office: trae 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!

Leer más ... Características completas Prueba gratuita de 30 días ... Compra...