Alan ha chiesto se esiste un modo per identificare rapidamente e facilmente quali celle vengono unite in una cartella di lavoro creata da qualcun altro. Esistono, in realtà, molti modi diversi per identificare queste cellule.

Un metodo per identificare le celle consiste nell’utilizzare le funzionalità di ricerca di Excel. Segui questi passaggi:

  1. Premi Ctrl + F. Excel visualizza la scheda Trova della finestra di dialogo Trova e sostituisci.

  2. Se necessario, fare clic sul pulsante Opzioni per assicurarsi che la finestra di dialogo Trova e sostituisci sia espansa per mostrare tutte le opzioni. (Vedi figura 1.)

  3. Assicurati che la casella Trova sia vuota.

  4. Con il punto di inserimento nella casella Trova, fare clic sul pulsante Formato. Excel visualizza la finestra di dialogo Trova formato.

  5. Assicurati che la scheda Allineamento sia visualizzata. (Vedi figura 2.)

  6. Assicurati che la casella di controllo Unisci celle sia selezionata (dovrebbe esserci un segno di spunta nella casella di controllo).

  7. Fare clic su OK per chiudere la finestra di dialogo Trova formato.

  8. Fare clic su Trova tutto.

Excel cerca le celle unite e, se si trovano, le celle vengono visualizzate nella parte inferiore della finestra di dialogo Trova e sostituisci. È quindi possibile selezionare uno degli intervalli trovati e l’intervallo corrispondente viene selezionato nel foglio di lavoro.

Se preferisci, puoi una macro per trovare le varie celle unite nel foglio di lavoro. La seguente macro mostra forse il metodo più semplice per farlo:

Sub FindMerged1()

Dim c As Range     For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             MsgBox c.Address & " is merged"

End If     Next End Sub

Questa particolare macro attraversa tutte le celle del foglio di lavoro (beh, almeno quelle che si trovano in UsedRange) e, se la cella fa parte di una cella unita, viene visualizzata una finestra di messaggio. Notare che la proprietà pertinente da controllare è la proprietà MergeCells. Questo è impostato su True se la cella è unita a un’altra cella.

Ovviamente, una macro come questa può richiedere molto tempo per essere eseguita se il foglio di lavoro ha molte celle e anche di più se un buon numero di quelle celle viene unito. La tua macro verrebbe eseguita più velocemente se non si fermasse a ogni cella unita e non visualizzi una finestra di dialogo. La seguente versione adotta un approccio diverso, riempiendo ogni cella unita con un colore giallo:

Sub FindMerged2()

Dim c As Range     For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             c.Interior.ColorIndex = 36         End If     Next End Sub

Una variazione di questo approccio potrebbe essere la creazione di una funzione definita dall’utente che restituisca semplicemente Vero o Falso se la cella viene unita:

Function FindMerged3(rCell As Range)

FindMerged3 = rCell.MergeCells End Function

Con questa semplice funzione puoi quindi utilizzare la formattazione condizionale per evidenziare in qualche modo le celle se sono unite. (Se la funzione restituisce True, la formattazione condizionale applica qualsiasi formattazione specificata alla cella.)

Infine, se vuoi un elenco di celle che vengono unite nel foglio di lavoro, puoi semplicemente fare in modo che la tua macro metta insieme l’elenco invece di colorare le celle:

Sub FindMerged4()

Dim c As Range     Dim sMsg As String

sMsg = ""

For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             If sMsg = "" Then                 sMsg = "Merged worksheet cells:" & vbCr             End If             sMsg = sMsg & c.Address & vbCr         End If     Next     If sMsg = "" Then         sMsg = "No merged worksheet cells."

End If

MsgBox sMsg End Sub

Questa variazione visualizza una singola finestra di messaggio alla fine della macro, che indica gli indirizzi di tutte le celle unite che si trovano nel foglio di lavoro.

_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 (12385) si applica a Microsoft Excel 2007, 2010, 2013 e 2016.

Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui:

Identifying Merged Cells.