物联网软件开发公司 Offset最牛用法来了，能帮你省去400次Ctrl+C，太省事了！
发布日期：2024-09-28 06:34 点击次数：186
图片物联网软件开发公司
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
遗漏分析：上期奖号遗漏总值为48，比前期遗漏总值低了2点，开出14个热码奖号，比前期热码多出现2个，开出4个温码奖号，比前期温码少出现1个，开出2个冷码奖号，比前期冷码少出现1个，最近10期奖号冷温热码个数比为21：59：120，遗漏总值出现范围在41-69之间，本期预计冷温热码个数比为1：3：16，看好遗漏总值出现在30附近。
Next
End Sub
VBA真是是好东西，学好太省事了！指令：https://pan.baidu.com/s/1fitYWMcuUIMVAVXxFCatww?pwd=n4my
索求码：n4my
陪你学Excel，一世够不够？
app一次报名成为VIP会员，通盘课程遥远免费学，遥远答疑，仅需 1500 元，待你加入。报名后加卢子微信chenxilu2019，发送报名截图邀请进群。保举：日报、月报不发愁，再也无用一个个操作，一次全治理上篇：手废了，作念个表复制粘贴3000次，只因不会For Next轮回语句，1分钟我却搞半天图片
请把「Excel不加班」保举给你的一又友 本站仅提供存储做事，通盘内容均由用户发布，如发现存害或侵权内容，请点击举报。