LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

Excel之Offset最牛用法来了,能帮你省去400次Ctrl+C,太省事了!

admin
2024年8月1日 22:38 本文热度 1118
学员的问题,左边是原始数据,实际有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


该文章在 2024/8/2 17:49:30 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved