久久先锋男人av资源网站 Excel这个行业，透彻废了！

与 30万 粉丝一都学Excel

图片久久先锋男人av资源网站

著述开端，先吐槽一下，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运行代码，就批量将标题插入杀青。

图片

录制宏得到的是傻瓜式的代码，从中获得要道的代码，再修改智商得到智能的代码。依次比勤劳更伏击。 本站仅提供存储作事，所有这个词本色均由用户发布，如发现存害或侵权本色，请点击举报。