大家对excel中的选择性粘贴中的转置功能还是比较熟悉的，如下图，效果1和效果2可以用选择性粘贴中的转置功能相互转置。但对于效果1和效果3之间的转置，则需要VBA代码来实现。本例教大家使用VBA实现效果1和效果3之间的转置。工具/原料moreexcel 2007一、由1转置成3效果1/6分步阅读

首次使用VBA时，需要调出“开发工具”：点击左上角的excel图标—excel选项—常规—勾选在功能区显示“开发工具”选项卡。

2/6

录制一个空白宏：开发工具—录制宏，保存宏后，即停止录制，得到一空白宏，然后在此宏中编辑宏代码。

3/6

首先定义数个Interger类型的变量，变量个数可根据需要随时增减。这些变量用于单元格地址指示，因此设置为Interger类型。

4/6

编写代码：对变量进行赋值

将选择区域的单元格列数赋值给变量a，将选择区域的单元格行数赋值给变量b，将选择区域左上角单元格所在的列数赋值给c，将选择区域左上角单元格所在的行数赋值给r。

5/6

编写for循环语句

思路：可以看成C4:C5、D4:D5、E4:E5……分别进行复制粘贴，复制粘贴的次数（即循环次数）由选择区域所占的列数决定，因此f=1 to a，相当于循环次数由a决定。

每复制粘贴完一次，复制区域就要向后移动一列，因此需要对一个变量进行加1，本例使用e变量。e的起始值应等于选择区域左上角单元格所在的列数，即e=c，循环后加1，即e=e+1。

6/6

运行：点击工具栏上的运行按钮，或直接按F5运行，运行效果如下图。

二、由3转置成1效果1/3

同样先录制一个空白宏，再编辑代码。与1转3不同的是，3转1时，需要用户先在单元格中（B1和B2）设置转置后的列数和行数。

2/3

定义变量，将单元格B1和B2的值分别赋给a和b；将选择区域左上角单元格所在的列数和行数分别赋给c和 r；e的初始值等于r；循环次数由B1中的值决定；循环一次后，e的值增加b，即e=e+b，完整代码如下。

3/3

运行：增加一组数据，每组数据3个重复，在B1和B2中分别输入6和3，然后选择转置区域数据，点击运行，效果如下图。

注意事项

需要选择数据区域后再点击运行。

由效果3转效果1时，需要要先输入转置后的列数和行数。

excel