Come sostituire il nome di una cella con i relativi riferimenti di cella in Excel?
Quando si lavora con intervalli denominati in Excel, questi risultano estremamente utili per migliorare la leggibilità e la gestione delle formule. Tuttavia, in alcune situazioni può essere necessario rimuovere i nomi assegnati alle celle e ripristinare i riferimenti di cella effettivi — ad esempio quando si condividono file, si risolvono problemi o si standardizzano modelli. In questo articolo illustreremo diversi metodi efficaci per sostituire gli intervalli denominati con i corrispondenti riferimenti di cella in Excel.
Sostituire Nome della cella con riferimenti di cella tramite codice VBA
Ad esempio, in questo foglio di lavoro, assegnerò il nome saleprice all’intervallo A2:A6 e il nome discount alla cella B2, per poi utilizzare entrambi i nomi in una formula per calcolare il nuovo prezzo. Vedere le schermate:
Dopo aver applicato questi semplici trucchi, gli Nome della cella saranno sostituiti con i riferimenti di cella, come mostrato di seguito:
Sostituire Nome della cella con riferimenti di cella tramite codice VBA
Utilizzando VBA per sostituire gli Nome della cella presenti nelle formule con riferimenti di cella, è possibile procedere come segue:
1. Seleziona l’intervallo che contiene le formule i cui nomi vuoi sostituire con riferimenti di cella.
2. Premere Alt + F11 per aprire una nuova finestra di Microsoft Visual Basic, Applications, quindi fare clic su Inserisci > Modulo e copiare e incollare il seguente codice nel modulo:
Codice VBA: Sostituire Nome della cella con riferimento assoluto
Sub AbsoleteNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(VBA.Replace(xName.RefersTo, "=", ""), "$", ""))
End If
Next
Next
End SubCodice VBA: Sostituire Nome della cella con riferimento relativo
Sub ReplaceNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(xName.RefersTo, "=", ""))
End If
Next
Next
End Sub3. Premere quindi il tasto F5 per eseguire il codice: verrà visualizzata una finestra di dialogo per selezionare l’intervallo da sostituire. Vedere la schermata:
4. Fare quindi clic su OK e tutti i nomi di cella presenti nelle formule selezionate saranno sostituiti.
Sostituire rapidamente e facilmente Nome della cella con riferimenti di cella tramite Kutools per Excel
Sebbene eseguire questa operazione manualmente o tramite VBA possa risultare dispendioso in termini di tempo e soggetto a errori, Kutools per Excel offre una soluzione con un solo clic per semplificare l’intero processo. Grazie alla sua utility Converti nomi in riferimenti di range, potrai sostituire rapidamente e facilmente i nomi delle celle con i relativi riferimenti di cella.
1. Per applicare questa utility, fai clic su Kutools > Strumenti nome > Converti nomi in riferimenti di range.
2. Viene visualizzata una finestra di dialogo: fare clic sulla scheda Intervallo e selezionare quindi l’intervallo da sostituire con riferimenti di cella dall’opzione Basato su intervallo. Infine, fare clic sul pulsante Sostituisci. Vedere la schermata:
3. Verrà visualizzata un’altra finestra che indica il numero di formule modificate e di quelle non modificate; fare clic su OK e i nomi delle celle presenti nell’intervallo selezionato saranno sostituiti con riferimenti di cella.
🔚 Conclusione
Sia che si tratti di poche formule o di un’intera cartella di lavoro, sostituire gli intervalli denominati con riferimenti di cella effettivi è un ottimo modo per aumentare trasparenza, compatibilità e facilità di collaborazione.
- Per gli utenti avanzati, VBA offre una soluzione flessibile e programmabile per automatizzare la sostituzione.
- Per tutti gli altri, Kutools per Excel offre il modo più rapido e intuitivo per portare a termine l’operazione in pochi clic, senza dover scrivere codice o modificare formule.
Scegliendo il metodo più adatto al proprio flusso di lavoro, è possibile ottimizzare le formule e garantire che i fogli di calcolo restino facili da comprendere e da mantenere. Se desideri scoprire altri suggerimenti e trucchi per Excel, il nostro sito web offre migliaia di tutorial per aiutarti a padroneggiare Excel.
Articolo correlato:
Modificare i riferimenti di cella nelle formule in Nome della cella in Excel
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi