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:
ho provato da solo ma l'unico risulato che sono riuscito a ottenere è il seguente:
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:
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