Jak zvýraznit text části při zřetězení dvou sloupců v aplikaci Excel?

V listu aplikace Excel po zřetězení dvou hodnot buněk pomocí vzorců zjistíte, že nebude tučnou částí textu v buňce kombinovaného vzorce. To může být někdy nepříjemné, jak byste mohli tučným textem části při zřetězení dvou sloupců v aplikaci Excel?

Tučný text součásti při zřetězení dvou sloupců pomocí kódu VBA

Tučný text součásti při zřetězení dvou sloupců pomocí kódu VBA

Například mám data dvou sloupců, teď chci kombinovat tyto dva sloupce do jednoho sloupce a formátovat první hodnotu tučně jako následující snímek obrazovky:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Tučný text součásti při zřetězení dvou sloupců:

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se výzva, která vám připomene výběr rozsahu dat, který chcete kombinovat a tučně, viz screenshot:

4. A pak klikněte na tlačítko OK tlačítko a všechna dvě slova v řádcích byla zkombinována společně do buněk vedle datového rozsahu a první slovo je také tučně, viz screenshot: