¿Cómo insertar el mismo texto en cada fila alterna en Excel?
En este artículo, le mostraremos cómo insertar el mismo texto en cada fila alterna en Excel. Siga leyendo para más detalles.
Insertar el mismo texto en cada fila con código VBA
Insertar el mismo texto en cada fila alterna con Kutools para Excel
Insertar el mismo texto en cada fila con código VBA
Supongamos que desea insertar los textos “Nombre”, “Datos” y “Puntuación” en cada fila alterna dentro de un rango especificado, como se muestra en la captura de pantalla a continuación. Por favor, pruebe el siguiente código VBA.
1. En la hoja de cálculo, presione simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo. Ver captura de pantalla:
3. Copie y pegue el siguiente código VBA en el editor de Código.
Código VBA: insertar 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:
Insertar el mismo texto en cada fila alterna con Kutools para Excel
Con el código anterior, solo puede insertar texto en cada fila. ¿Qué tal insertar texto en cada n filas en Excel? En esta sección, le mostraremos la utilidad Insertar Filas de Títulos de Kutools para Excel. Con esta utilidad, insertar texto en cada n filas se vuelve fácil.
1. Haga clic en Kutools > Insertar > Insertar Filas de Títulos para habilitar esta utilidad.
2. En el cuadro de diálogo Insertar Filas de Títulos, necesita:
Ahora el texto especificado está insertado en cada n filas en el rango seleccionado.
Kutools para Excel - Potencia Excel con más de 300 herramientas esenciales. ¡Disfruta de funciones de IA gratis permanentemente! Consíguelo ahora
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos