Thomas ha una colonna che non contiene altro che valori di testo, come frasi e frasi. Alcune celle mostrano il loro testo in rosso e il resto è in nero. Vorrebbe un modo per separare il testo in modo tale che le celle di testo nero rimangano nella colonna e le celle di testo rosso vengano spostate nella colonna successiva.

Ci sono un paio di modi per affrontare questo problema. Forse l’approccio più semplice è semplicemente ordinare o filtrare la colonna che contiene i valori di testo. Excel ti consente di filtrare e ordinare in base al colore del testo, il che significa che puoi vedere solo le celle di testo rosso o inserire tutte le celle di testo rosso in un intervallo contiguo. Quindi è un compito facile tagliare le celle di testo in rosso e incollarle nella colonna successiva.

Ad esempio, ecco come faresti l’ordinamento:

  1. Seleziona le celle che contengono i tuoi valori di testo.

  2. Visualizza la scheda Dati della barra multifunzione.

  3. Fare clic sullo strumento Ordina nel gruppo Ordina e filtra. Excel visualizza la finestra di dialogo Ordina.

  4. Utilizzando l’elenco a discesa Ordina per, scegli Colore carattere.

  5. Utilizzare l’elenco a discesa Ordine per indicare il colore che si desidera visualizzare per primo nell’elenco ordinato. (Qui è dove sceglieresti il ​​tuo colore rosso. L’elenco a discesa include ogni colore rilevato nell’intervallo selezionato al punto 1.)

  6. Fare clic su OK.

Ora le tue celle sono ordinate, per colore, con il colore specificato nel passaggio 5 all’inizio dell’intervallo di celle. Puoi facilmente copiarlo o spostarlo in una colonna diversa. È possibile utilizzare gli stessi passaggi generali se si desidera filtrare i valori del testo in base al colore del carattere.

Se preferisci, puoi anche utilizzare una macro per spostare le celle di testo in rosso.

Ecco un esempio che copia il valore della cella e il colore del carattere di una cella a destra.

Sub MoveRedText1()

Dim c As Range

If Selection.Columns.Count > 1 Then Exit Sub

For Each c In Selection         If c.Font.Color = vbRed Then             c.Offset(0, 1) = cell.Value             c.Offset(0, 1).Font.Color = vbRed             c.ClearContents             c.Font.Color = vbBlack         End If     Next c End Sub

Per utilizzare la macro, seleziona le celle che desideri analizzare e quindi esegui la macro. Non copia tutta la formattazione delle celle che sta spostando; se questo è fondamentale, puoi effettivamente utilizzare una macro molto più semplice per eseguire lo spostamento.

Sub MoveRedText2()

Dim c As Range

For Each c In Selection         If c.Font.Color = vbRed Then _           c.Cut Destination:=c.Offset(0, 1)

Next c End Sub

Se usi una di queste macro e le tue celle di testo rosso non si muovono, potrebbe essere perché le celle non usano effettivamente testo rosso. Esistono molte diverse tonalità di rosso che possono essere visualizzate in Excel, quindi dovrai modificare le macro per assicurarti di controllare il colore del carattere corretto.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (12604) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 e Excel in Office 365.