大家对excel中的选择性粘贴中的转置功能还是比较熟悉的，如下图，效果1和效果2可以用选择性粘贴中的转置功能相互转置。但对于效果1和效果3之间的转置，则需要VBA代码来实现。本例教大家使用VBA实现效果1和效果3之间的转置。
2、录制一个空白宏：开发工具—录制宏，保存宏后，即停止录制，得到一空白宏，然后在此宏中编辑宏代码。
4、编写代码：对变量进行赋值将选择区域的单元格列数赋值给变量a，将选择区域的单元格行数赋值给变量b，将选择区域左上角单元格所在的列数赋值给c，将选择区域左上角单元格所在的行数赋值给r。
6、运行：点击工具栏上的运行按钮，或直接按F5运行，运行效果如下图。
2、定义变量，将单元格B1和B2的值分别赋给a和b；将选择辨泔矣嚣区域左上角单元格所在的列数和行数分别赋给c和 r；e的初始值等于r；循环次数由B1中的值决定；循环一次后，e的值增加b，即e=e敫苻匈酃+b，完整代码如下。
