Niente, Office 2021 non include la funzione STACK.VERT...
Col vba usando Copia /Incolla-Trasponi; ma non so se l'esito sara' quello che vuoi.
Ad esempio:
- Codice: Seleziona tutto
Sub TrasponiBoth()
Sheets("GRUPPO MAN").Select
Range(Cells(1, 1), Cells(Rows.Count, "O").End(xlUp)).Copy
Sheets("Foglio3").Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("GRUPPO MAN").Select
Application.CutCopyMode = False
Range(Cells(1, "Q"), Cells(Rows.Count, "AC").End(xlUp)).Copy
Sheets("Foglio3").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A1").Select
Application.CutCopyMode = False
End Sub
Questa copia le colonne A:O e le incolla trasposte, poi accoda le colonne Q:AC sempre trasposte
Non so se invece che incollare "tutto" (xlPasteAll) vorrai incollare solo alcuni contenuti, nel qual caso dovrai adattare le istruzioni PasteSpecial