与 30万 粉丝一起学Excel

图片

文章开头，先吐槽一下，Excel这个行业，彻底废了。最近2个月全行业的公众号，文章阅读量都爆减，不是一两个人，而是全行业。越没人看，越没动力更新好文章，越没人看，恶性循环。时代抛弃你，有时并不是你不努力，而是风吹向其他地方，现在是短视频时代了。刷视频的手停不下来，看文章的手点不进去。文章标题：手废了，做个表复制粘贴3000次，只因不会For Next循环语句，1分钟我却搞半天VIP学员的问题，左边是从系统导出来的，现在希望每个房间都增加一行标题。原始数据有几千行，除了用复制，粘贴标题行，重复无数次之外，有没更快捷的方法？

图片

重复一个动作几千次，手估计要废了。其实，在Excel里面有一个循环语句，可以代替手工操作，只要告诉她重复多少次即可。先跟卢子一起来完成第一次操作，复制标题，插入到小计下一行。这个操作是需要记录下来，专业点叫录制宏。点开发工具，录制宏，复制第1行，选择第4行，右键，插入复制的单元格，停止录制。

图片

点开发工具，VB，模块1，就可以看到刚刚录制的宏。

图片

直接录制的代码，其实可以进行简化。

    Rows("1:1").Select

    Selection.Copy

可以简化成Rows("1:1").Copy，也就是复制第1行。

    Rows("4:4").Select

    Range("B4").Activate

    Selection.Insert Shift:=xlDown

可以简化成Range("A4").Insert Shift:=xlDown，也就是在A4插入刚刚复制的标题。

重点来了Range("A4")这个是变动的，需要判断上一行有小计2字，就在下一行插入标题。也就是需要进行一次判断，在VBA里面也有IF。If Range("A" & I) = "小计" Then        Rows("1:1").Copy    Range("A" & I + 1).Insert Shift:=xlDownEnd IfI这里是变量，从1到17，这里就需要循环语句For Next，有一个注意点因为插入标题后，行数会改变，必须先从17行开始到1行往上判断，步长为-1。最终代码出来了。Sub 插入标题()Dim i%For i = 17 To 1 Step -1If Range("A" & i) = "小计" Then        Rows("1:1").Copy    Range("A" & i + 1).Insert Shift:=xlDownEnd IfNextEnd Sub运行代码，就批量将标题插入完毕。

图片

录制宏得到的是傻瓜式的代码，从中获取关键的代码，再修改才能得到智能的代码。方法比努力更重要。 本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。