Excel'de iki sütunu birleştirirken kısmi metni kalın yapmak nasıl yapılır?

Excel çalışma sayfasında, iki hücre değerini formüllerle birleştirdikten sonra, birleştirilmiş formül hücresinde metnin bir kısmını kalın yapamayacağınızı fark edebilirsiniz. Bu durum bazen can sıkıcı olabilir, Excel'de iki sütunu birleştirirken kısmi metni nasıl kalın yapabilirsiniz?

VBA kodu ile iki sütun birleştirirken kısmi metni kalın yapma

VBA kodu ile iki sütun birleştirirken kısmi metni kalın yapma

Örneğin, elimde iki sütun verisi var, şimdi bu iki sütunu birleştirip aşağıdaki ekran görüntüsünde gösterildiği gibi ilk değeri kalın olarak biçimlendirmek istiyorum:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarını basılı tutun.

2. Ekle Insert > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: İki sütun birleştirirken kısmi metni kalın yapma:

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve seçmek istediğiniz veri aralığını birleştirmek ve kalın yapmak için bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

4. Sonra Tamam düğmesine tıklayın ve satırlardaki tüm kelimeler veri aralığının yanındaki hücrelere birleştirilecek ve ilk kelime de kalın olacaktır, aşağıdaki ekran görüntüsüne bakın: