vorrei se possibile modificarla in modo che mi dia una tabella in questo modo,
il range dell'estrazioni
C5:G300
- Codice: Seleziona tutto
Sub collax2()
CelleFree = "J1" '<< Colonna in cui sara' scritto il report
TuArea = "B1:F300" '<< Area con i dati
'
Compen = Range(TuArea).Column: MaxR = 0
Application.ScreenUpdating = False
For Each Cella In Range(TuArea)
aaa = Cella.Row
Set CFormArea = Range(TuArea).Offset(Cella.Row).Resize(Range(TuArea).Rows.Count - Cella.Row + 1)
If Application.WorksheetFunction.CountIf(CFormArea, Cella.Value) = 0 Then _
Range(CelleFree).Offset(Rows.Count - 1, Cella.Column - Compen).End(xlUp).Offset(1, 0) = Cella.Value
If Range(CelleFree).Offset(Rows.Count - 1, Cella.Column - Compen).End(xlUp).Offset(1, 0).Row > MaxR Then _
MaxR = Range(CelleFree).Offset(Rows.Count - 1, Cella.Column - Compen).End(xlUp).Offset(1, 0).Row
Next Cella
'>>>AGGIUNTO
For Each Cella In Range(CelleFree).Resize(1, Range(TuArea).Columns.Count)
Range(Cella, Cells(Rows.Count, Cella.Column).End(xlUp)).Select
Selection.Cut Destination:=Cella.Offset(MaxR - Selection.Rows.Count, 0)
Next Cella
Range(CelleFree).Select: Application.ScreenUpdating = True
End Sub