Excel'de iki sütunu birleştirirken parça metni nasıl kalınlaştırılır?

Excel çalışma sayfasında, iki hücre değerini formüllerle birleştirdikten sonra, birleştirilmiş formül hücresindeki metnin bir kısmını kalınlaştırmayacağını görebilirsiniz. Bu bazen can sıkıcı olabilir, Excel'de iki sütunu birleştirirken bölüm metnini nasıl kalın yapabilirsiniz?

VBA kodu ile iki sütunu birleştirirken kalın parça metni

VBA kodu ile iki sütunu birleştirirken kalın parça metni

Örneğin, iki sütun verim var, şimdi, bu iki sütunu bir sütunda birleştirmek ve aşağıda gösterilen ekran görüntüsü gibi ilk değeri kalın olarak biçimlendirmek istiyorum:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: İki sütunu birleştirirken kalın kısım metni:

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir tuşa basın ve birleştirmek ve kalın yapmak istediğiniz veri aralığını seçmenizi hatırlatan bir istem kutusu açılır, ekran görüntüsüne bakın:

4. Ve sonra tıklayın OK düğmesi ve satırlardaki tüm iki kelime veri aralığının yanındaki hücrelerde birleştirildi ve ilk kelime de kalın, ekran görüntüsüne bakın: