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
转载于:https://blog.51cto.com/xiweicheng/853710