图片小程序开发
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 批量转置()
百十位合：最近10期百十位号码合分别开出：2、9、8、5、2、1、0、3、0、0，其中百十位合大小比为3:7，012路比为5:1:4，本期百十位两码合关注大数，参考两码合7、8、9。
福彩3D历年第180期同期奖号为：551 077 743 268 207 701 667 035 526 804 277 642 199 702 659 364 761 926 644 144 503 932 918。
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不加班」推选给你的一又友 本站仅提供存储工作，所有内容均由用户发布，如发现存害或侵权内容，请点击举报。