由于我的工作要大量使用excel 的“选择性粘贴—>数值—>转置 ”,怎么设置一步到位的快捷键?

2024-11-07 20:51:58
推荐回答(2个)
回答1:

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

回答2:

用宏录制一个快捷键。
中间插入这些代码:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True

操作时,复制后,选择要开始转置的单元,按快捷键。