Estrarre e sommare il numero di volte in cui compare un nome

[zanzarino2009]

Ciao a tutti. Ho un problema in Excel che per voi probabilmente è una sciocchezza ma io non sto riuscendo a risolverlo. Nella cella A1 del Foglio1 ho inserito la seguente lista: Antonio, Francesco, Antonio, Giovanni, Filippo, Mauro, Filippo, Filippo. Nella cella B2 l'altra lista: Giovanni, Filippo, Mauro, Marco, Tommaso. Quello che vorrei succedesse è che in Foglio2 nella colonna B elencasse i vari nomi presenti nella cella A1 e B1 del Foglio1 e quelli che si ripetono li contasse. Quindi in A1 del Foglio2 sia presente il numero di volte che si ripete il nome, in B1 il nome di riferimento. Quindi il risultato dovrebbe essere:
A B
2 Antonio
1 Francesco
2 Giovanni
4 Filippo.........ecc...

Spero di essere stato chiaro, grazie mille in anticipo.

[ricky53]

Ciao,
strano modo di riportare i dati: tutti in una sola cella!

Sicuro che questo sia il modo migliore per ottenere quello che ti occorre?
Quali esigenze hai?
Quali dati hai ?
Che struttura hai dato ai dati?

Se ci spieghi in modo semplice, dettagliato e schematico quello che vuoi ottenere e quali dati hai a disposizione ti potremmo consigliare anche come organizzare il tuo lavoro ... ovviamente se siamo ancora in tempo, ossia se non sei andato abbastanza avanti da NON poter riorganizzare il tuo lavoro.

[zanzarino2009]

In pratica si tratta di un torneo di calcio a 8. Ho la necessità di scrivere tutto in una cella per scrivere i marcatori della singola partita. Nella prima cella i calciatori marcatori della squadra A e nella seconda quelli della squadra B e nell'altro foglio mi deve dare il numero di gol realizzati in totale nelle varie partite perchè non si deve limitare solo a quella cella ma all'intervallo che va da A1:A100 e B1:B100

[ricky53]

Ciao,
il separatore tra i vari nomi è la virgola ?

Le celle da cui iniziano i dati dei marcatori sono la "A2" e la "B2".
Ipotizziamo la riga "1" come riga di intestazione.
Ipotizziamo anche che i dati vengono scritti nel Foglio2 a partire dalla riga "2"

[ricky53]

Ciao,
prima leggi quanto ti ho scritto nel mio precedente intervento.


Adesso, ad integrazione di quanto ti ho scritto prima, qualche altra domanda:

A) come distingui i marcatori delle varie squadre (esiste un Antonio nella squadra "A" ma potrebbe esistere anche un Antonio nella squadra "C")

B) nel Foglio2 i marcatori vanno uno sotto l'altro per tutte le squadre del torneo

C) Occorre una colonna aggiuntiva per riportare la squadra cui il marcatore appartiene, questa cosa va fatta nel Foglio1 ma anche nel Foglio2

D) La struttura dei dati è proprio quella che hai descritto tu: colonna "A" marcatori di una squadra, colonna "B" marcatori di un'altra squadra e così per la varie righe.


Io invece utilizzerei quest'altra struttura:
colonna "A" nome 1^ squadra
colonna "B" marcatori della 1^ squadra tutti nella stessa cella
colonna "C" nome 2^ squadra
colonna "D" marcatori della 2^ squadra tutti nella stessa cella

e ripeterei il tutto in tante righe per quanti sono gli incontri.

[zanzarino2009]

Ciao ti ringrazio e tenendo conto dei tuoi suggerimenti ti rispondo alle domande che mi hai posto:
- Sì il separatore tra i nomi è la virgola.
- Le celle dove si inseriscono per la prima partita i marcatori sono E2 per la prima squadra e F2 per la seconda e finiscono alla riga 101 del Foglio1 se consideriamo la riga 1 come intestazione, il che è una buona idea.Nelle colonne A e B inserirò i nomi delle squadre. C e D il numero di gol segnati dalla squadra. E e F i marcatori.
- Anche nel Foglio2 si può benissimo incominciare dalla seconda riga. Nella colonna A ci deve essere il numero (le volte in cui compare il nome), nella colonna B il nome e se si potesse fare, nella colonna C il nome della squadra di appartenenza (quest'ultima è una cosa utile ma non fondamentale)
- I marcatori se ci sono stessi nomi vengono distinti con parte del cognome, per esempio Antonio, Antonio A., Antonio Ab., Antonio C., ecc...
- Nel foglio 2 i marcatori vanno inseriti in righe diverse uno sotto l'altro e poi me li ordinerò manualmente per numero di gol fatti, a meno che si possa fare automaticamente senza una macro.

[ricky53]

Ciao,
ritengo sia fattibile, ovviamente con una macro ... anche con la squadra e con l'ordinamento decrescente per goal segnati.

Fammici pensare un po' ... a ritrovarci qui presto.

[ricky53]

Ciao,
ho pensato e ... prova questo codice

Codice: Seleziona tutto

Option Explicit

Sub Elabora()
    Dim Marcatore, Marcatore_0, RR As Integer, UR As Integer, I As Integer, J As Integer, K As Integer, X As Integer
    Dim Trovato As String, WS1 As Worksheet, WS2 As Worksheet, Elem_SqA As Integer
   
    Set WS1 = Sheets("Foglio1"): Set WS2 = Sheets("Foglio2")
    UR = WS2.Range("A" & Rows.Count).End(xlUp).Row
    If UR > 1 Then
        WS2.Range("A2:C" & UR).ClearContents
    End If
    RR = WS1.Range("A" & Rows.Count).End(xlUp).Row
    For X = 2 To RR
        Marcatore = Split(WS1.Range("E" & X), ",")
        Elem_SqA = UBound(Marcatore)
        J = UBound(Marcatore) + 1
        Marcatore_0 = Split(WS1.Range("F" & X), ",")
        ReDim Marcatore(UBound(Marcatore) + UBound(Marcatore_0) + 1)
        Marcatore_0 = Split(WS1.Range("E" & X), ",")
        For I = 0 To UBound(Marcatore_0)
            Marcatore(I) = Trim(Marcatore_0(I))
        Next I
        Marcatore_0 = Split(WS1.Range("F" & X), ",")
        For I = J To UBound(Marcatore_0) + J
            Marcatore(I) = Trim(Marcatore_0(I - J))
        Next I
       
        J = WS2.Range("A" & Rows.Count).End(xlUp).Row + 1
        WS2.Cells(J, "A") = 1
        WS2.Cells(J, "B") = Marcatore(0)
        WS2.Cells(J, "C") = WS1.Cells(X, "A")
        For I = 1 To UBound(Marcatore)
            UR = WS2.Range("A" & Rows.Count).End(xlUp).Row
            Trovato = "NO"
            For K = 2 To UR
                If WS2.Cells(K, "B") = Marcatore(I) Then
                    WS2.Cells(K, "A") = WS2.Cells(K, "A") + 1
                    Trovato = "SI"
                    Exit For
                End If
            Next K
            If Trovato <> "SI" Then
                J = J + 1
                WS2.Cells(J, "A") = 1
                WS2.Cells(J, "B") = Marcatore(I)
                If I <= Elem_SqA Then
                    WS2.Cells(J, "C") = WS1.Cells(X, "A")
                Else
                    WS2.Cells(J, "C") = WS1.Cells(X, "B")
                End If
            End If
        Next I
    Next X
   
    Range("A1:C" & J).Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Key2:=Range("B2") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
    Range("A1").Select

    MsgBox "Elaborazione effettuata", vbInformation
    Set WS1 = Nothing: Set WS2 = Nothing
End Sub


Il codice rispetta quanto hai scritto tu nel tuo ultimo intervento, nei nomi dei fogli e nell'utilizzo delle colonne.

Aggiornaci sul risultato ottenuto

[zanzarino2009]

Ma dovrei creare un bottone e inserire la macro? e poi funziona tutto automaticamente?

[ricky53]

Ciao,
che prove hai fatto?
Hai eseguito il codice?

Come associare il codice ad un pulsante lo vediamo dopo.
Adesso ci devi dire se il codice che ti ho proposto risolve il tuo quesito !

[zanzarino2009]

Scusate ho avuo il pc rotto. Ho provato ma non mi fa nessuna operazione. Mi dice errore di run-time. In cosa sbaglio? basta copiare e incollare vero?

[ricky53]

Ciao,
si basta copiare il codice ed incollarlo in un modulo ed eseguirlo con "F5".
Puoi riportare il messaggio completo.


In caso tu non ne esca invia un file di esempio, senza dati riservati, e ... troveremo la soluzione.