Excel'de hücre sütunlarını birleştirip metin rengini nasıl koruyabiliriz?

Bildiğimiz gibi, hücre sütunlarını birleştirirken veya tek bir sütuna birleştirirken (örneğin metin yazı tipi rengi, sayı biçimlendirmesi gibi) hücre formatları kaybolur. Bu makalede, Excel'de mümkün olduğunca kolay bir şekilde hücre sütunlarını birleştirmek ve metin rengini korumak için bazı ipuçları tanıtacağım.

VBA kodu ile hücre sütunlarını birleştirin ve metin yazı tipi rengini koruyun

VBA kodu ile hücre sütunlarını birleştirin ve metin yazı tipi rengini koruyun

Bu görevi Excel'de tamamlamak için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu adımları izleyin:

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

2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: hücre sütunlarını birleştirin ve metin rengini koruyun:

Sub MergeFormatCell()
'Updateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xRgEachRow As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim I As Integer
    Dim xRgLen As Integer
    Dim xSRgRows As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select cell columns to concatenate:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSRgRows = xSRg.Rows.Count
    Set xDRg = Application.InputBox("Please select cells to output the result:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRgRows
        xRgLen = 1
        With xDRg.Offset(I - 1)
            .Value = vbNullString
            .ClearFormats
			.NumberFormat = "@"
            Set xRgEachRow = xSRg(1).Offset(I - 1).Resize(1, xSRg.Columns.Count)
            For Each xRgEach In xRgEachRow
                .Value = .Value & Trim(xRgEach.Value) & " "
            Next
            For Each xRgEach In xRgEachRow
                xRgVal = xRgEach.Value
                With .Characters(xRgLen, Len(Trim(xRgVal))).Font
                .Name = xRgEach.Font.Name
                .FontStyle = xRgEach.Font.FontStyle
                .Size = xRgEach.Font.Size
                .Strikethrough = xRgEach.Font.Strikethrough
                .Superscript = xRgEach.Font.Superscript
                .Subscript = xRgEach.Font.Subscript
                .OutlineFont = xRgEach.Font.OutlineFont
                .Shadow = xRgEach.Font.Shadow
                .Underline = xRgEach.Font.Underline
                .ColorIndex = xRgEach.Font.ColorIndex
                End With
                xRgLen = xRgLen + Len(Trim(xRgVal)) + 1
            Next
        End With
    Next I
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ştirme işlemini içeren bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

4. Tamam'a tıklayın, başka bir diyalog kutusu belirecektir, lütfen birleştirilmiş sonuçları çıkarmak istediğiniz hücreleri seçin, aşağıdaki ekran görüntüsüne bakın:

5. Tamam düğmesine tıklayın, aşağıdaki ekran görüntüsünde gösterildiği gibi sütunlar metin rengini kaybetmeden birleştirilecektir:

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!