Copiare su 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?
 

Informazioni domanda


Ultimo aggiornamento febbraio 27, 2018 Visualizzazioni 294 Si applica a:
Risposta
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?

Vedi:

http://www.maurogsc.eu/esempiforum14/colonneincolonna.zip

Dove devi modificare questo:

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.

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.