Come mettere in grassetto parte del testo quando si concatenano due colonne in Excel?

In un foglio di lavoro di Excel, dopo aver concatenato due valori di celle con le formule, potresti notare che non è possibile mettere in grassetto parte del testo nella cella della formula combinata. Questo a volte può essere fastidioso, quindi come si potrebbe mettere in grassetto parte del testo quando si concatenano due colonne in Excel?

Mettere in grassetto parte del testo durante la concatenazione di due colonne con il codice VBA

Mettere in grassetto parte del testo durante la concatenazione di due colonne con il codice VBA

Ad esempio, ho due colonne di dati e ora voglio combinare queste due colonne in una sola colonna e formattare il primo valore in grassetto, come mostrato nello screenshot seguente:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Metti in grassetto parte del testo quando concateni due colonne:

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. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di avviso che ti ricorderà di selezionare l'intervallo dati che desideri combinare e mettere in grassetto, vedi screenshot:

4. Dopodiché clicca sul pulsante OK, e tutte le due parole nelle righe sono state combinate insieme nelle celle accanto all'intervallo dati e la prima parola è stata messa in grassetto, vedi screenshot: