Come concatenare le colonne delle celle e mantenere il colore del testo in Excel?

Come tutti sappiamo, durante la concatenazione o la combinazione di colonne di celle in una colonna, la formattazione della cella (come il colore del carattere del testo, la formattazione del numero, ecc.) Andrà persa. In questo articolo, introdurrò alcuni trucchi per combinare le colonne delle celle in una e mantenere il colore del testo il più facilmente possibile in Excel.

Concatena le colonne delle celle e mantieni il colore del carattere del testo con il codice VBA

Concatena le colonne delle celle e mantieni il colore del carattere del testo con il codice VBA

Per completare questa attività in Excel, il seguente codice VBA potrebbe farti un favore, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.

Codice VBA: concatena le colonne delle celle e mantieni il colore del testo:

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. Quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di dati che desideri combinare con il colore del testo, vedi screenshot:

4. E poi clicca OK, viene visualizzata un'altra finestra di dialogo, selezionare le celle in cui si desidera visualizzare i risultati combinati, vedere screenshot:

5. Quindi fare clic OK pulsante, le colonne sono state concatenate senza perdere il colore del testo come mostrato nella seguente schermata:

Sblocca Excel Magic con Kutools AI

• Esecuzione intelligente: esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto gestito da semplici comandi.
• Formule personalizzate: genera formule personalizzate per semplificare i flussi di lavoro.
• Codifica VBA: Scrivi e implementa il codice VBA senza sforzo.
• Interpretazione della formula: Comprendere formule complesse con facilità.
• Traduzione di testi: abbatti le barriere linguistiche nei tuoi fogli di calcolo.

Migliora le tue funzionalità di Excel con strumenti basati sull'intelligenza artificiale. Scarica Ora e sperimenta l'efficienza come mai prima d'ora!