与 30万 粉丝一起学Excel

图片

VIP学员的问题，左边是原始数据，实际有800多条记录，每2行复制，转置成右边的效果。也就是说，需要操作400多次才能实现全部转换，想想都是一件吃力不讨好的事情。

图片

记住一句话，重复的事情，交给循环语句For Next去做，我们只需教她操作一遍即可。来，跟卢子一起看看。点开发工具，录制宏，选择区域B3:G4，复制，点I3，右键，转置，停止录制。

图片

点开发工具，VB，模块1，就可以看到刚刚录制的宏。

图片

先在代码前后加上循环语句For Next，VBA的变量i可以从0开始。

图片

这里是每2行，操作一遍，因此不需要进行判断。怎么表示区域向下0行、2行、4行等等？Excel里面的函数Offset可以向下，向右得到对应的值，其实VBA里面也支持这个函数。Range("B3:G4").Offset(2 * i, 0)就代表区域向下0行、2行、4行。

图片

同理，第一次从单元格I3开始转置，第二次就得从I9开始，第三次就得从I15开始，也就是隔着6行，也就是Range("I3").Offset(6 * i, 0)。

图片

到这里核心的代码已经修改完毕，可以运行了。

图片

当然，你也可以对代码进行再一步简化，前提是你有一定的VBA基础。如果不熟悉，这一步可以省略，别弄巧成拙。

Sub 批量转置()

For i = 0 To 2

    Range("B3:G4").Offset(2 * i, 0).Copy

    Range("I3").Offset(6 * i, 0).PasteSpecial Transpose:=True

Next

End Sub

VBA真的是好东西，学好太省事了！

链接：https://pan.baidu.com/s/1fitYWMcuUIMVAVXxFCatww?pwd=n4my

提取码：n4my

陪你学Excel，一生够不够？

一次报名成为VIP会员，所有课程永久免费学，永久答疑，仅需 1500 元，待你加入。报名后加卢子微信chenxilu2019，发送报名截图邀请进群。推荐：日报、月报不发愁，再也不用一个个操作，一次全搞定上篇：手废了，做个表复制粘贴3000次，只因不会For Next循环语句，1分钟我却搞半天

图片

请把「Excel不加班」推荐给你的朋友 本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。