郑导航

与 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果然是好东西，学好太省事了！ 本站仅提供存储劳动，通盘内容均由用户发布，如发现存害或侵权内容，请点击举报。

• 郑导航