Skip to main content

¿Cómo poner en negrita solo la primera línea o la primera palabra en una celda en Excel?

Author: Siluvia Last Modified: 2025-06-04

Al trabajar con texto en Excel, es posible que necesites enfatizar partes específicas del contenido dentro de las celdas para mejorar la legibilidad o la presentación. Por ejemplo, podrías querer poner en negrita solo la primera línea de texto en una celda de varias líneas o resaltar solo la primera palabra. En este artículo, exploraremos varios métodos para poner en negrita solo la primera línea o la primera palabra en las celdas de Excel, adaptados a diferentes niveles de experiencia y requisitos.

Poner en negrita solo la primera línea en una celda usando código VBA

Poner en negrita solo la primera palabra en una celda usando código VBA

Poner en negrita solo la primera palabra o la primera línea en una celda usando Kutools AI


Poner en negrita solo la primera línea en una celda usando código VBA

El siguiente código VBA puede ayudarte a poner rápidamente en negrita solo la primera línea en las celdas seleccionadas. Por favor, sigue los siguientes pasos.

1. Presiona simultáneamente las teclas "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. En la ventana "Microsoft Visual Basic para Aplicaciones", haz clic en "Insertar" > "Módulo". Luego copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Poner en negrita solo la primera línea en las celdas

Option Explicit
Sub BoldFirstLine()
Dim xRng As Range, xCell As Range
Dim xFirstRow As String
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
    With xCell
        .Characters(1, InStr(.Value, Chr(10))).Font.Bold = True
    End With
Next
End Sub

3. Presiona la tecla "F5" para ejecutar el código. Luego aparecerá un cuadro de diálogo de "Kutools para Excel", selecciona el rango con la primera línea que necesitas poner en negrita y luego haz clic en el botón "Aceptar".

vba code to select the data range

Luego puedes ver que todas las primeras líneas de las celdas seleccionadas se ponen en negrita inmediatamente, como se muestra en la siguiente captura de pantalla.

all first lines of selected cells are bold


Poner en negrita solo la primera palabra en una celda usando código VBA

Como se muestra en la siguiente captura de pantalla, a veces necesitas poner en negrita solo la primera palabra en el rango A2:A4 en Excel. Puedes lograrlo siguiendo paso a paso lo siguiente.

1. Presiona simultáneamente las teclas "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".

2. En la ventana "Microsoft Visual Basic para Aplicaciones", haz clic en "Insertar" > "Módulo". Luego copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Poner en negrita solo la primera palabra en las celdas

Sub boldtext()
Dim xRng As Range, xCell As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools fro Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  If xCell.Value <> "" Then
    xCell.Characters(1, InStr(1, xCell.Value, " ") - 1).Font.Bold = True
  End If
Next
End Sub

3. Presiona la tecla "F5" para ejecutar el código. En el cuadro de diálogo emergente de "Kutools para Excel", selecciona el rango donde deseas poner en negrita la primera palabra y luego presiona el botón "Aceptar". Ver captura de pantalla:

vba code to select the data range

Luego puedes ver que todas las primeras palabras de las celdas seleccionadas se ponen en negrita inmediatamente, como se muestra en la siguiente captura de pantalla.

all first words of selected cells are bold


Poner en negrita solo la primera palabra o la primera línea en una celda usando Kutools AI

Si encuentras que el código VBA es demasiado complejo, puedes usar "Kutools AI" para una solución más simple y eficiente. Con Kutools para Excel AI, puedes automatizar esta tarea y aplicar un formato consistente con solo unos pocos clics. Ya sea que estés trabajando con conjuntos de datos pequeños o grandes hojas de cálculo, "Kutools AI" ahorra tiempo y asegura un resultado pulido.

Kutools para Excel ofrece más de 300 funciones avanzadas para simplificar tareas complejas, potenciando la creatividad y la eficiencia. Integrado con capacidades de inteligencia artificial, Kutools automatiza las tareas con precisión, haciendo que la gestión de datos sea sencilla. Información detallada de Kutools para Excel...  Prueba gratuita...

Después de instalar Kutools para Excel, por favor haz clic en "Kutools" > "Asistente de IA" para abrir el panel "Asistente de KUTOOLS AI".

  1. Selecciona el rango de datos donde deseas eliminar el texto entre paréntesis;
  2. Luego, escribe el requisito en el cuadro de chat: como por ejemplo:
    ● Negrita la primera palabra de cada celda:
    Poner en negrita solo la primera palabra en el rango seleccionado
    ● Negrita la primera línea de cada celda
    Poner en negrita solo la primera línea en cada celda dentro del rango seleccionado
  3. Y luego, presiona la tecla "Enter" o haz clic en el botón "Enviar". Kutools AI analizará la pregunta, después de finalizar, haz clic en el botón "Ejecutar" para obtener el resultado.

Poner en negrita la primera línea o la primera palabra en una celda de Excel puede mejorar significativamente el atractivo visual y la claridad de tus datos. ¡Elige el enfoque que mejor se adapte a tu flujo de trabajo y eleva la presentación de tus datos en Excel! Si estás interesado en explorar más consejos y trucos de Excel, nuestro sitio web ofrece miles de tutoriales.


Artículo relacionado:


Las mejores herramientas de productividad para Office

🤖 Kutools AI Aide: Revoluciona el análisis de datos basado en: Ejecución inteligente | Generar código | Crear fórmulas personalizadas | Analizar datos y generar gráficos | Invocar Funciones mejoradas
Funciones populares: Buscar, resaltar o marcar duplicados | Eliminar filas en blanco | Combinar columnas o celdas sin perder datos | Redondear...
Super BUSCARV: Búsqueda por varios criterios | Búsqueda de varios valores | Búsqueda en varias hojas | Coincidencia difusa....
Lista desplegable avanzada: Crea rápidamente una lista desplegable | Lista desplegable dependiente | Lista desplegable de selección múltiple....
Administrador de columnas: Agregar un número específico de columnas | Mover columnas | Alternar el estado de visibilidad de columnas ocultas | Comparar rangos y columnas...
Funciones destacadas: Cuadrícula de enfoque | Vista de diseño | Barra de fórmulas mejorada | Administrador de Libro de trabajo y Hoja de cálculo | Biblioteca de AutoTexto | Selector de fechas | Combinar Datos | Cifrar/Descifrar celdas | Enviar correo electrónico por lista | Super Filtro | Filtro especial (filtrar celdas con fuente en negrita/cursiva/tachado...)...
Top15 conjuntos de herramientas:12 herramientas de texto (Agregar texto, Eliminar caracteres específicos, ...) | Más de50 tipos de gráficos (Diagrama de Gantt, ...) | Más de40 fórmulas prácticas (Calcular edad basada en la fecha de nacimiento, ...) |19 herramientas de inserción (Insertar código QR, Insertar imagen desde ruta, ...) |12 herramientas de conversión (Convertir a palabras, Conversión de moneda, ...) |7 herramientas para combinar y dividir (Combinar filas avanzado, Dividir celdas, ...) | ... y más

Potencia tus habilidades en 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 lleva la interfaz de pestañas a 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 nuevas ventanas.
  • ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!