Hur djärva deltext när man sammanfogar två kolumner i Excel?

I Excel-kalkylbladet, efter att ha sammanfogat två cellvärden med formler, kan det hända att det inte kommer att fetstil en del av texten i den kombinerade formelcellen. Det här kan vara irriterande ibland, hur kan du fet texttext när du sammanfogar två kolumner i Excel?

Fet deltext när två kolumner sammanfogas med VBA-kod

Fet deltext när två kolumner sammanfogas med VBA-kod

Till exempel har jag två kolumndata, nu vill jag kombinera dessa två kolumner i en kolumn och formatera första värdet fet som följande skärmdump visas:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Fet text när två kolumner sammanfogas:

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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att välja det dataområde som du vill kombinera och fetstil, se skärmdump:

4. Och klicka sedan på OK knappen, och alla de två orden i raderna har kombinerats i cellerna bredvid dataområdet och det första ordet är också fetstil, se skärmdump: