Come si fa a copiare la formattazione della cella di origine quando si utilizza CERCA.VERT in Excel?
Negli articoli precedenti abbiamo illustrato come mantenere il colore di sfondo durante la ricerca con CERCA.VERT in Excel. In questo articolo presentiamo un metodo efficace per copiare l’intera formattazione della cella risultante quando si utilizza CERCA.VERT in Excel. Procedi nel modo seguente.
Copiare la formattazione di origine quando si utilizza CERCA.VERT in Excel con una funzione definita dall'utente
Supponiamo di avere una tabella come quella mostrata nell’immagine seguente. Ora occorre verificare se un valore specifico (nella colonna E) è presente nella colonna A e, in tal caso, restituire il valore corrispondente con la relativa formattazione dalla colonna C. Seguire la procedura indicata di seguito per ottenere il risultato desiderato.
1. Nel foglio di lavoro che contiene il valore da cercare con CERCA.VERT, fai clic con il pulsante destro del mouse sulla scheda del foglio e seleziona Visualizza codice dal menu contestuale. Vedere l’immagine:
2. Nella finestra di Microsoft Visual Basic, Applications Edition aperta, copia il seguente codice VBA nella finestra del codice.
Codice VBA 1: CERCA.VERT e Valore restituito con formattazione
Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
Application.CutCopyMode = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Set xRg = Application.Range(xDicStr)
xRg.Copy
Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
Application.CutCopyMode = True
End Sub
3. Fare quindi clic su Inserisci > Modulo, quindi copiare il seguente codice VBA 2 nella finestra del modulo.
Codice VBA 2: CERCA.VERT e Valore restituito con formattazione
Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Application.ScreenUpdating = False
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepFormat = " "
xDic.Add Application.Caller.Address, " "
Else
LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
End If
Application.ScreenUpdating = True
End Function4. Fare clic su Strumenti > Riferimenti. Quindi, selezionare la casella Microsoft Script Runtime nella finestra di dialogo Riferimenti - VBAProject. Vedere l’immagine:
5. Premere i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic, Applications Edition.
6. Seleziona una cella vuota adiacente al valore da cercare, inserisci la formula =LookupKeepFormat(E2;$A$1:$C$8;3) nella Barra delle formule e premi il tasto Invio.
Nota: nella formula, E2 contiene il valore da cercare, $A$1:$C$8 è l’intervallo della tabella e il numero 3 indica che il valore corrispondente da restituire si trova nella terza colonna della tabella. Modificali in base alle tue esigenze.
7. Mantenendo selezionata la prima cella del risultato, trascina il quadratino di riempimento verso il basso per ottenere tutti i risultati con la relativa formattazione, come mostrato nell’immagine seguente.
Sblocca la magia di Excel con KUTOOLS AI
- Esecuzione intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Articoli correlati:
- Come usare CERCA.VERT per restituire anche il colore di sfondo insieme al valore trovato in Excel?
- Come usare CERCA.VERT per restituire un formato data anziché un numero in Excel?
- Come si usano CERCA.VERT e SOMMA insieme in Excel?
- Come utilizzare CERCA.VERT per ottenere il valore restituito nella cella adiacente o successiva in Excel?
- Come cercare un valore con CERCA.VERT e restituire VERO o FALSO (o SÌ o NO) 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