VBA控制Excel行列转换

 Sub Macro2()

'

' Macro2 Macro

'

 

'

    Range("D8:F15").Select

    Selection.Copy

    Range("D20").Select

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

        False, Transpose:=True

    ActiveWorkbook.Save

End Sub