与 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
一九四九年的中国，那是个什么光景？说白了就是乱成了一锅粥。国民党那边，败局已定，那是兵败如山倒，大家伙都在忙着找退路。那时候不值钱的是什么？是纸币。金圆券那是早上能买米，晚上只能买纸，老百姓拿着麻袋装钱去买根油条都不是稀罕事。那值钱的是什么？是硬通货，是黄金，是袁大头，也就是银元。就在这么个节骨眼上，蒋介石那个心疼啊，他在想方设法把大陆剩下的家底往台湾运。这里面金贵的资产，除了黄金白银，就是那帮开飞机的飞行员。
12月22日，周大福足金（饰品、工艺品类）报1368元/克，较20日上涨8元/克；老庙黄金足金饰品报1367/克，较20日上涨6元/克。
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运行代码，就批量将标题插入完毕。图片
录制宏得到的是傻瓜式的代码，从中获取关键的代码，再修改才能得到智能的代码。方法比努力更重要。 本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。
