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

Come sappiamo tutti, quando si concatenano o combinano colonne di celle in una singola colonna, la formattazione delle celle (come il colore del carattere del testo, la formattazione dei numeri, ecc.) andrà persa. In questo articolo, vi presenterò alcuni trucchi per combinare le colonne di celle in una sola mantenendo il colore del testo nel modo più semplice possibile in Excel.

Concatenare colonne di celle e mantenere il colore del carattere con il codice VBA

Concatenare colonne di celle e mantenere il colore del carattere con il codice VBA

Per completare questa operazione in Excel, il seguente codice VBA potrebbe esservi utile, procedete come segue:

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

2. Cliccate su Inserisci > Modulo, e incollate il seguente codice nella Finestra del Modulo.

Codice VBA: concatenare colonne di celle e mantenere 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 premete il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo che vi chiederà di selezionare l'intervallo di dati che desiderate combinare mantenendo il colore del testo, vedere screenshot:

4. Dopodiché cliccate su OK, apparirà un'altra finestra di dialogo, selezionate le celle dove volete esportare i risultati combinati, vedere screenshot:

5. Quindi cliccate sul pulsante OK, le colonne sono state concatenate senza perdere il colore del testo come mostrato nello screenshot seguente:

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!