Comment mettre en gras une partie du texte lors de la concaténation de deux colonnes dans Excel ?

Dans une feuille de calcul Excel, après avoir concaténé deux valeurs de cellules avec des formules, vous pourriez constater qu'il n'est pas possible de mettre en gras une partie du texte dans la cellule contenant la formule combinée. Cela peut être ennuyeux parfois, alors comment mettre en gras une partie du texte lors de la concaténation de deux colonnes dans Excel ?

Mettre en gras une partie du texte lors de la concaténation de deux colonnes avec un code VBA

Mettre en gras une partie du texte lors de la concaténation de deux colonnes avec un code VBA

Par exemple, j'ai deux colonnes de données, et maintenant je souhaite combiner ces deux colonnes en une seule tout en mettant en gras la première valeur comme le montre la capture d'écran suivante :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Mettre en gras une partie du texte lors de la concaténation de deux colonnes :

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. Appuyez ensuite sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la plage de données que vous souhaitez combiner et mettre en gras, voir capture d'écran :

4. Cliquez ensuite sur le bouton OK, et tous les deux mots des lignes ont été combinés ensemble dans les cellules à côté de la plage de données et le premier mot est également en gras, voir capture d'écran :