大家对excel中的选择性粘贴中的转置功能还是比较熟悉的，跗柿椁焚如下图，效果1和效果2可以用选择性粘贴中的转置功能相互转置。但对于效磨营稼刻果1和效果3之间的转置，则需要VBA代码来实现。本例教大家使用VBA实现效果1和效果3之间的转置。
工具/原料
excel2007
一、由1转置成3效果
1、首次使用VBA时，需要调出“开发工具”：点击左上角的excel图标—excel选项—常规—勾选在功能区显示“开发工具”选项卡。
2、录制一个空白宏：开发工具—录制宏，保存宏后，即停止录制，得到一空白宏，然后在此宏中编辑宏代码。
3、首先定义数个Interger类型的变量，变量个数可根据需要随时增减。这些变量用于单元格地址指示，因此设置为Interger类型。
4、编写代码：对变量进行赋值将选择区域的单元格列数赋值给变量a，将选择区域的单元格行数赋值给变量b，将选择区域左上角单元格所在的列数赋值给c，将选择区域左上角单元格所在的行数赋值给r。
5、编写for循环语句思路：可以看成C4:CD4:DE4:E5……分别进行翱务校肢复制粘贴，复制粘贴的次数（即循环次数）由选择区域所占的列数决定，因此f=1toa，相当于循环次数由a决定。足饶戽沸每复制粘贴完一次，复制区域就要向后移动一列，因此需要对一个变量进行加1，本例使用e变量。e的起始值应等于选择区域左上角单元格所在的列数，即e=c，循环后加1，即e=e+1。
6、运行：点击工具栏上的运行按钮，或直接按F5运行，运行效果如下图。
二、由3转置成1效果
1、同样先录制一个空白宏，再编辑代码。与1转3不同的是，3转1时，需要用户先在单元格中（B1和B2）设置转置后的列数和行数。
2、定义变量，将单元格B1和B2的值分别赋给a和b；将选择辨泔矣嚣区域左上角单元格所在的列数和行数分别赋给c和r；e的初始值等于r；循环次数由B1中的值决定；循环一次后，e的值增加b，即e=e敫苻匈酃+b，完整代码如下。
3、运行：增加一组数据，每组数据3个重复，在B1和B2中分别输入6和3，然后选择转置区域数据，点击运行，效果如下图。
