[Tasos]

Αγαπητέ Σπύρο, το ζητούμενο δεν μπορεί να επιτευχθεί με απλό τρόπο με τα μέσα που μας παρέχει η Excel.

Θα χρειαστεί κώδικας VBA.

Τι προτείνω λοιπόν:
Πρώτα θα πρέπει να μετατρέψεις το βιβλίο σου σε *.xlsm για να μπορεί να εκτελέσει κώδικα VBA.

Δώσε στην περιοχή A1:J13 το όνομα: TransposeArea

Συμπλήρωση: Μπορείς να μετακινήσεις τη περιοχή αυτή σε όποιο σημείο του φύλλου θελήσεις.

Κάνε δεξί κλικ στη καρτέλα του φύλλου που περιέχει την περιοχή TransposeArea και επίλεξε: Προβολή κώδικα.

Στο παράθυρο που θα εμφανιστεί (VBE), πέρασε τον παρακάτω κώδικα:

Option Explicit
Dim TargetColumn As Integer, TargetRow As Integer, rng As Range

Private Sub Worksheet_Change(ByVal Target As Range)
    Set rng = Me.Range("TransposeArea")
    If Not Intersect(Target, rng) Is Nothing Then
        If Target.Count = 1 Then
            TargetColumn = Target.Column - rng.Column + 1
            TargetRow = Target.Row - rng.Row + 1
            'Αν αφαιρέσεις την παρακάτω γραμμή _
             η αντιμετάθεση θα πραγματοποιείται σε όλη την περιοχή "TransposeArea"
            '---------------------------------------------------------------------
            If TargetColumn <> 1 And TargetRow <> 1 Then Exit Sub
            '---------------------------------------------------------------------
            On Error Resume Next
            Application.EnableEvents = False
            rng.Cells(TargetColumn, TargetRow) = Target
            Application.EnableEvents = True
        End If
    End If
End Sub

Δοκίμασε και τα λέμε.

Φιλικά

Τάσος