用VBA来实现,把如下代码放在模块里:
鼠标放在 下面的 sheet1的表名上,右键,查看代码,然后在左边工程资源管理器区,右键,插入模块,复制如下的代码:
Sub zhuanzhi()
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub
然后自定义工具栏,从宏中拖一个 笑脸的按钮出来,可以放在格式刷一起,或者放在工具栏上你认为合适的位置,然后确定退出。
再去点这个自定义按钮,指定刚才的宏。就行了。
以后使用时,选择好区域,复制,然后到目标位置的左上角单元格,再点 自定义的按钮,就转置粘贴了。