[已解决]行列转置

乐乐2006201506

希望修改原有代码，达到第一个工作表中下面转置的效果。谢谢！

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-12-22 09:20

乐乐2006201506 发表于 2016-12-22 08:41
想写好代码，以后只点按钮就成了，因为不是一个表，也不是只做一次，谢谢！

1. Sub 宏1() '
   
2. ' 宏1 宏,录制个宏，再改下代码'
   
3.     Dim rgs As Range
   
4.     Range("a20:i6000").Clear
   
5.     Set rgs = Application.InputBox("请选定要转置的数据源", "原始数据区域", , , , , , 8)
   
6.     rgs.Copy
   
7.     Range("a20").Select
   
8.     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
   
9.           False, Transpose:=True
   
10. End Sub

复制代码

跳转到最佳答案楼层

苏子龙

复制-选择性粘帖-转置

乐乐2006201506

苏子龙 发表于 2016-12-22 08:33
复制-选择性粘帖-转置

想写好代码，以后只点按钮就成了，因为不是一个表，也不是只做一次，谢谢！

苏子龙

乐乐2006201506 发表于 2016-12-22 08:41
想写好代码，以后只点按钮就成了，因为不是一个表，也不是只做一次，谢谢！

1. Sub 宏1() '
   
2. ' 宏1 宏,录制个宏，再改下代码'
   
3.     Dim rgs As Range
   
4.     Range("a20:i6000").Clear
   
5.     Set rgs = Application.InputBox("请选定要转置的数据源", "原始数据区域", , , , , , 8)
   
6.     rgs.Copy
   
7.     Range("a20").Select
   
8.     Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
   
9.           False, Transpose:=True
   
10. End Sub

复制代码

乐乐2006201506

苏子龙 发表于 2016-12-22 09:20

这个也很好了，能用变量的方法做个吗？那样就不用选区域了，用起来方便些！谢谢！

望帝春心

来学习～