Arra van itt a fórumon több példa, hogyan lehet egyenként megnyitni az azonos könyvtárban lévő füzeteket, és a megfelelő művelet elvégzése után mentéssel bezárni.

A művelethez ezt iktatsd be:

    Range("A1:V120").Copy
    Range("A121").Activate
    Selection.PasteSpecial Transpose:=True
    Rows("1:120").Delete

Az első sorban a V oszlopot kell átírnod a saját utolsó oszlopod betűjelére.