Gestire un riepilogo dati in excel

Question

Ciao a tutti.

Ho una tabella con molte colonne in cui per ogni riga ho un codice (colonna A) con tutta una serie di valori nelle restanti colonne. Volevo fare un confronto tra due codici per individuare le celle con i valori diversi tra le due righe. Ho fatto un un foglio due celle con la convalida dati sulla colonna A e con la funzione cerca.x ho esteso le colonne relative ai codici inseriti. Poi con una funzione SE ho confrontato i valori evidenziando quelli "diversi".

Però il risultato, pur essendo un notevole supporto, non mi piace.

Mi piacerebbe che il risultato evidenziasse solo le celle diverse e magari su un modulo riepilogativo eventualmente da stampare.

Ho provato anche con un codice vba (sfruttando AI) ma non riesco a farlo funzionare come vorrei.....

Sub ConfrontaCodici()

Dim Codice1 As String

Dim Codice2 As String

Dim Riga As Long

Dim Risultato As String

Dim Cella As Range

Dim MatchTrovato As Boolean

' Leggi i codici dalle caselle combinate Codice1 = Worksheets("NomeFoglio").Range("A1").Value Codice2 = Worksheets("NomeFoglio").Range("B1").Value

' Inizializza la variabile Risultato e MatchTrovato

Risultato = ""

MatchTrovato = False '

Cerca i codici nelle colonne A e B

For Riga = 2 To Worksheets("NomeFoglio").Cells(Rows.Count, 1).End(xlUp).Row

If Worksheets("NomeFoglio").Cells(Riga, 1).Value = Codice1 And Worksheets("NomeFoglio").Cells(Riga, 2).Value = Codice2

Then

' I codici corrispondono, confronta le colonne D a M

For Each Cella In Worksheets("NomeFoglio").Range("D" & Riga & ":M" & Riga)

If Cella.Value <> Cella.Offset(0, -1).Value

Then

' Valore diverso, aggiungi al risultato

Risultato = Risultato & "Colonna " & Cella.EntireColumn.Cells(1, 1).Value & ": " & Cella.Value & " (precedente: " & Cella.Offset(0, -1).Value & ")" & vbCrLf

End If

Next Cella

' Imposta MatchTrovato su True e esci dal ciclo

MatchTrovato = True

Exit For

End If

Next Riga ' Mostra il risultato in una messagebox

If MatchTrovato

Then MsgBox "Differenze trovate per i codici " & Codice1 & " e " & Codice2 & vbCrLf & vbCrLf & Risultato

Else

MsgBox "Nessuna differenza trovata per i codici " & Codice1 & " e " & Codice2

End If

End Sub

Qualcuno ha qualche dritta?

Grazie.

Max.

Answer 1

Ciao

Sono Adeyemi e sarei felice di aiutarti con la tua domanda.

Sembra che tu sia sulla strada giusta con l'utilizzo della funzione SE di Excel per confrontare i valori ed evidenziare le differenze. Ecco una guida dettagliata su come gestire un riepilogo dei dati in Excel:

1. Selezionare le righe che si desidera confrontare: trascinare il cursore tra le righe che si desidera confrontare.
2. Vai alla scheda Home e alla sezione Modifica della barra multifunzione: fai clic su "Trova e seleziona" e seleziona "Vai a speciale" nell'elenco a discesa.
3. Scegli "Differenze di riga" e fai clic su "OK": le celle i cui valori sono diversi dalla cella di confronto in ogni riga sono colorate
4. Applicare la formattazione per mantenere evidenziate le differenze: è possibile rimanere nella scheda Home e utilizzare un'opzione di formattazione nella barra multifunzione. La sezione Carattere della scheda Home offre opzioni per modificare il testo in grassetto, corsivo o sottolineato, nonché regolare lo stile, le dimensioni e il colore del carattere

Ricorda che le differenze evidenziate si basano sulla cella attiva. Ciò significa che i dati nelle righe successive evidenziate sono diversi dalla colonna della cella attiva

Spero che questo aiuti.

Restituisci alla comunità. Aiuta la prossima persona che ha questo problema indicando se questa risposta ha risolto il tuo problema. Fai clic su Sì o No di seguito.

Cordiali saluti Adeyemi

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.