¿Cómo insertar el mismo texto en cada fila alterna de Excel?
En este artículo le mostraremos cómo insertar el mismo texto en cada fila alternativa de Excel. ¡Siga leyendo para descubrir cómo hacerlo!
Inserte el mismo texto en cada fila con código VBA
Inserte el mismo texto en cada fila alternativa con Kutools para Excel
Inserte el mismo texto en cada fila con código VBA
Supongamos que desea insertar el texto «Name», «Data» y «Score» en cada fila alternativa dentro de un rango limitado, tal como se muestra en la siguiente captura de pantalla. Pruebe el siguiente código VBA.
1. En la hoja de cálculo, pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo. Vea la captura de pantalla:
3. Copie y pegue el siguiente código VBA en el editor de código.
Código VBA: inserte el mismo texto en cada fila en Excel
Sub inserttexteveryonerow()
Dim Last As Integer
Dim emptyRow As Integer
Last = Range("A" & Rows.Count).End(xlUp).Row
For emptyRow = Last To 2 Step - 1
If Not Cells(emptyRow, 1).Value = "" Then
Rows(emptyRow).Resize(1).Insert
Range(Cells(emptyRow, "A"), Cells(emptyRow, "C")).Value = Array("Name", "Date", "Sore")
End If
Next emptyRow
End SubNotas: En el código anterior:
Inserte el mismo texto en cada fila alternativa con Kutools para Excel
Con el código anterior, solo puede insertar texto en cada fila. ¿Y si desea insertar texto cada n filas en Excel? En esta sección le presentamos la utilidad Insertar Filas de Títulos de Kutools para Excel. ¡Gracias a esta herramienta, insertar texto cada n filas es más sencillo que nunca!
1. Haga clic en Kutools > Insertar > Insertar Filas de Títulos para activar esta utilidad.
2. En el cuadro de diálogo Insertar Filas de Títulos, debe:
Ahora el texto especificado se ha insertado en cada n filas del rango seleccionado.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos