激色猫 Offset最牛用法来了，能帮你省去400次Ctrl+C，太省事了！

与 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不加班」推选给你的一又友 本站仅提供存储做事，扫数内容均由用户发布，如发现存害或侵权内容，请点击举报。