Wie kann man einen Teil des Textes fett formatieren, wenn man zwei Spalten in Excel verbindet?

In einem Excel-Arbeitsblatt werden Sie nach dem Verbinden von zwei Zellenwerten mit Formeln feststellen, dass ein Teil des Textes in der kombinierten Formelzelle nicht fett formatiert wird. Dies kann manchmal ärgerlich sein. Wie können Sie also einen Teil des Textes beim Verbinden von zwei Spalten in Excel fett formatieren?

Teil des Textes beim Verbinden von zwei Spalten mit VBA-Code fett formatieren

Teil des Textes beim Verbinden von zwei Spalten mit VBA-Code fett formatieren

Zum Beispiel habe ich zwei Spalten mit Daten. Nun möchte ich diese beiden Spalten in eine Spalte kombinieren und den ersten Wert wie im folgenden Screenshot gezeigt fett formatieren:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Teil des Textes beim Verbinden von zwei Spalten fett formatieren:

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. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Dialogfeld wird angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, den Sie kombinieren und fett formatieren möchten, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche OK, und alle zwei Wörter in den Zeilen wurden zusammen in die Zellen neben dem Datenbereich kombiniert, und das erste Wort wurde ebenfalls fett formatiert, siehe Screenshot: