Condividi:        

[EXCELL] Valori celle uguali e incolonnazione verso destra

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[EXCELL] Valori celle uguali e incolonnazione verso destra

Postdi maxwellreturn » 17/09/12 12:32

Ciao a tutti..sono nuovo del forum
Mi sono inscritto perche ho notato che si sono persone preparate e disponibili che forse sono in grado di aiutarmi posting.php?mode=post&f=26&sid=42cacd896d6cece1730e90684b51d0ca#
Sostanzialmente il mio problema è il seguente:

- Ho una serie di dati nella colonna A
- alcune celle contegno valori uguali
-vorrei che le celle con valori uguali si accumulassero nella riga della prima cella che PRESENTA il valore e venissero eliminate le rimanentii celle con valore uguale
vi posto un immagine e provo a farmi capire meglio:

Immagine

ho provato da solo ma l'unico risulato che sono riuscito a ottenere è il seguente:

Immagine

ottenuto con la seguente macro
Codice: Seleziona tutto
Sub Macro2()
      FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To FinalRow
    For x = 1 To i
    FinalCol = Cells(i, Columns.Count).End(xlToLeft).Column
    If Cells(i, 1).Value = Cells(x, 1).Value Then
      Sheets("Foglio1").Cells(i, 1).Copy
      Sheets("Foglio1").Cells(i, 1).Offset(0, FinalCol).PasteSpecial Paste:=xlPasteValues, _
 Operation:=xlNone, SkipBlanks:=False, Transpose:=False
   End If
  Next x
  Next i
End Sub


come vedete il problema è che ho più righe con valori uguali cumulati(invece ne vorrei una sola e con tutti i valori uguali come nella prima immagine).. qundi sono da eliminare le seguenti righe:

Immagine


infine come vedete ho i valori copiati nella colonna B che non è necessario..dunque preferirei eliminare anche quelli..insomma una stragehttp://www.pc-facile.com/forum/po ... 84b51d0ca#
spero di essere stato chiaro e che qualcuno mi possa aiutare..
cordiali saluti
maxwellreturn
Newbie
 
Post: 9
Iscritto il: 17/09/12 11:31

Sponsor
 

Re: [EXCELL] Valori celle uguali e incolonnazione verso dest

Postdi Flash30005 » 17/09/12 14:13

Ciao Maxwellreturn e benvenuto nel Forum

Spero che questa macro faccia ciò che ti aspetti :)

Codice: Seleziona tutto
Sub TrasponiUg()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Columns("B:IV").ClearContents
For RR1 = 1 To UR - 1
For RR2 = UR To RR1 + 1 Step -1
NumA = Range("A" & RR1).Value
If NumA = Range("A" & RR2).Value Then
UC = Worksheets("Foglio1").Cells(RR1, Columns.Count).End(xlToLeft).Column + 1
Cells(RR1, UC).Value = NumA
Rows(RR2 & ":" & RR2).Delete Shift:=xlUp
End If
Next RR2
Next RR1
End Sub


ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCELL] Valori celle uguali e incolonnazione verso dest

Postdi maxwellreturn » 17/09/12 14:43

Cavoli è perfetta..grazie mille flash..non potevo chiedere di meglio grazie ancora.
cordiali saluti e buon proseguimento
Maxwell
maxwellreturn
Newbie
 
Post: 9
Iscritto il: 17/09/12 11:31

Re: [EXCELL] Valori celle uguali e incolonnazione verso dest

Postdi wallace&gromit » 17/09/12 14:55

ciao, stavo tentando anche io, ovviamente senza riuscire a eguagliare flash!
però resto curioso: penso che la chiave della differenza tra la mia soluzione imperfetta e la tua, flash, sia quel "step" -1, potresti spiegare come funziona?
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: [EXCELL] Valori celle uguali e incolonnazione verso dest

Postdi maxwellreturn » 18/09/12 12:01

ciao wallace..a quanto so io lo "step -1" a cui ti riferisci permette di eseguire il ciclo nel verso opposto a quello predefinito..
maxwellreturn
Newbie
 
Post: 9
Iscritto il: 17/09/12 11:31

Re: [EXCELL] Valori celle uguali e incolonnazione verso dest

Postdi maxwellreturn » 18/09/12 12:08

io invece volevo chiedere un ultima cosa..Qual'è il significato di quel Rows(RR2 & ":" & RR2)??..non l'avevo mai trovata prima e non riesco a carpirne il significato..Perchè concatenare (RR2:RR2)?
maxwellreturn
Newbie
 
Post: 9
Iscritto il: 17/09/12 11:31

Re: [EXCELL] Valori celle uguali e incolonnazione verso dest

Postdi Anthony47 » 18/09/12 13:38

Per w&g:
-la macro cancella delle righe, per evitare di incasinare il counter questa operazione viene fatta dall' ultima riga alla prima, che si ottiene con For RR2 = UR To RR1 + 1 Step -1
Se invece cancelli delle righe procedendo dalle prime righe in avanti l' effetto del Delete sara' che alcune righe non verranno esaminate

Per maxwell:
-quella sintassi serve a concatenare due numeri di riga per ottenere la stringa richiesta dal vba (es Riga1:Riga2); nel caso specifico in effetti e' pleonastico, perche' con la sola Rows(RR2).Delete Shift:=xlUp ottieni lo stesso risultato.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [EXCELL] Valori celle uguali e incolonnazione verso dest

Postdi maxwellreturn » 19/09/12 17:13

ho capito..grazie Anthony
maxwellreturn
Newbie
 
Post: 9
Iscritto il: 17/09/12 11:31


Torna a Applicazioni Office Windows


Topic correlati a "[EXCELL] Valori celle uguali e incolonnazione verso destra":


Chi c’è in linea

Visitano il forum: Nessuno e 63 ospiti