Salve ho 12 colonne formate da 31 righe li dovrei copiare su un'unica,come posso fare?inoltre e possibile fare questo processo per 32 fogli e ottenere un'unica colonna?
Salve ho 12 colonne formate da 31 righe li dovrei copiare su un'unica,come posso fare?inoltre e possibile fare questo processo per 32 fogli e ottenere un'unica colonna?
Set shArray = .Worksheets(Array("Foglio1", "Foglio2", "Foglio3", "Foglio4"))
aggiungendo/modificando i nomi dei tuoi fogli.
Se(se) devi fare questa cosa per TUTTI i fogli meno che per il foglio riepilogo, modifica così il codice:
Public Sub m()
Dim sh As Worksheet
Dim shRiepilogo As Worksheet
Dim lRiga As Long
Dim lCol As Long
Dim rng As Range
Set shRiepilogo = ThisWorkbook.Worksheets("Riepilogo")
On Error Resume Next
Application.ScreenUpdating = False
With shRiepilogo
.Range("A:A").ClearContents
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Riepilogo" Then
Set rng = sh.Range("A1").CurrentRegion
Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1)
For lCol = 1 To 12
lRiga = .Range("A" & .Rows.Count).End(xlUp).Row + 1
rng.Columns(lCol).Copy
.Range("A" & lRiga).PasteSpecial
Application.CutCopyMode = False
Next
Set rng = Nothing
End If
Next
End With
Application.ScreenUpdating = True
Set sh = Nothing
Set shRiepilogo = Nothing
End Sub
In entrambi i casi incolonno tutto nella colonna A del foglio Riepilogo. Modifica con i tuoi riferimenti.