¿Cómo poner en negrita parte del texto al concatenar dos columnas en Excel?

En una hoja de cálculo de Excel, después de concatenar los valores de dos celdas con fórmulas, es posible que notes que no se puede poner en negrita parte del texto en la celda combinada. Esto puede ser molesto en ocasiones, ¿cómo podrías poner en negrita parte del texto al concatenar dos columnas en Excel?

Poner en negrita parte del texto al concatenar dos columnas con código VBA

Poner en negrita parte del texto al concatenar dos columnas con código VBA

Por ejemplo, tengo datos en dos columnas, ahora quiero combinar estas dos columnas en una sola columna y formatear el primer valor en negrita, como se muestra en la siguiente captura de pantalla:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Poner en negrita parte del texto al concatenar dos columnas:

Sub JoinCellsWithBoldFormatForFirstWord()
'Updateby Extendoffice 20160725
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "only two columns in the selection", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Set xRg = xRg.Resize(xRg.Rows, 3)
    On Error Resume Next
    For Each xCell In xRg.Columns(3).Cells
        xCell = xRg.Cells(xCell.Row, 1) & " " & xRg.Cells(xCell.Row, 2)
        xCell.Font.Bold = False
        xCell.Characters(1, Len(xRg.Cells(xCell.Row, 1))).Font.FontStyle = "Bold"
    Next
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo que te recordará seleccionar el rango de datos que deseas combinar y poner en negrita, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, y las dos palabras en las filas se han combinado en las celdas junto al rango de datos y la primera palabra también está en negrita, ver captura de pantalla: