Unire/accodare il contenuto di più fogli (tabelle) in altro foglio della stessa cartella

Anonimo
2023-11-11T17:28:26+00:00

Salve,

in una cartella ho 25 fogli (tabella 1, tabella2, ecc. ecc.) mi servirebbe una macro che provveda ad accodare sul foglio "riepilogo" della stessa cartella le 25 tabelle/fogli separate/i.

I dati in ogni foglio sono nelle colone da "A" a "D" mentre le righe variano da foglio a foglio

Vi ringrazio per l'interessamento.

Saluti

AF

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento
Risposta accettata dall'autore della domanda
Eleuterio Tedeschi 18,750 Punti di reputazione Moderatore volontario
2023-11-13T09:53:10+00:00

Vi ringrazio tutti ma non ho capito come risolvere perchè non ho grosse conoscenze in materia.

Vi allego il file che devo sitemare: https://www.dropbox.com/scl/fi/xgo91ag6vyqkvjojfhtot/ComputoMetrico_Piu_Fogli.xlsx?rlkey=hxleo1a8xfgeqnvdgt2gkxksw&dl=0

Ho la necessità di concentrare / accodare sul foglio 1 il contenuto delle tabelle da 4 a 25 (table 1, table 2, table 3, ....., table 25) senza la prima riga delle intestazioni.

grazie

AF

Foglio1

A2

=FILTRO(STACK.VERT('Table 4:Table 25'!A3:D2000);STACK.VERT('Table 4:Table 25'!B3:B2000)<>"")

Ciao.

edit

Aggiungo il codice in VBA:

Sub CopiaTable()

Dim lngR As Long, intT As Integer

With Worksheets("Foglio1").Range("A2:D65535") 

    .ClearContents 

    .ClearFormats 

End With 

For intT = 4 To 25 

    With Worksheets("Table " & intT) 

        .Range("A3:D" & .Cells(Rows.Count, 2).End(xlUp).Row).Copy Worksheets("Foglio1").Range("A" & Worksheets("Foglio1").Cells(Rows.Count, 2).End(xlUp).Row + 1) 

    End With 

Next intT 

End Sub

La risposta è stata utile?

1 persona ha trovato utile questa risposta.
0 commenti Nessun commento

16 risposte aggiuntive

Ordina per: Più utili
  1. Gianfranco55 25,190 Punti di reputazione Moderatore volontario
    2023-11-13T10:00:43+00:00

    ciao

    io direi

    =LET(F;FILTRO(STACK.VERT('Table 4:Table 25'!A3:D100);STACK.VERT('Table 4:Table 25'!B3:B100)<>"");SE(F=0;"";F))

    poi selezionare la colonna B e selezionare testo a capo

    La risposta è stata utile?

    1 persona ha trovato utile questa risposta.
    0 commenti Nessun commento
  2. Gianfranco55 25,190 Punti di reputazione Moderatore volontario
    2023-11-11T20:16:46+00:00

    ciao

    si dovrebbe tutti segnalare la versione

    io l'ho collegata al mio nick

    Gianfranco55-365

    quel 365 è la versione........tu sai dove si può inserirla?

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Eleuterio Tedeschi 18,750 Punti di reputazione Moderatore volontario
    2023-11-11T20:09:59+00:00

    Salve,

    in una cartella ho 25 fogli (tabella 1, tabella2, ecc. ecc.) mi servirebbe una macro che provveda ad accodare sul foglio "riepiologo" della stessa cartella le 25 tabelle/fogli separate/i.

    I dati in ogni foglio sono nelle colone da "A" a "D" mentre le righe variano da foglioma foglio

    Vi ringrazio per l'interessamento.

    Saluti

    AF

    Occorrerebbe sapere:
    . versione di Excel;
    . se i dati sono in intervalli o in tabelle;

    . se mi servirebbe una macro va correttamente interpretata come richiesta di codice e non formule/Power Query.

    Grazie.

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Gianfranco55 25,190 Punti di reputazione Moderatore volontario
    2023-11-11T17:50:01+00:00

    ciao

    se hai il 365 sfrutta

    =STACK.VERT(Report:Foglio6!A3:G20)

    La risposta è stata utile?

    0 commenti Nessun commento