查看: 8|回复: 0

【原】Excel根据数值生成对应数量的行,神速技巧。

[复制链接]

22万

主题

22万

帖子

69万

积分

论坛元老

Rank: 8Rank: 8

积分
690112
发表于 4 天前 | 显示全部楼层 |阅读模式
 

 

Excel情报局
生产、搬运、分享Excel基础知识
Excel表格基础用1%的Excel基础搞定99%的日常工作
Excel是门手艺,玩转需要勇气
热衷于Excel基础知识的传播





  Excel情报局推荐音乐,阅读文章更轻松。

          知世故而不世故
      才是最善良的成熟
      愿你趟过世俗浑水
          不沾染一身世故

大家有没有在工作中遇到下面的一种问题,跟据B列数值的大小,复制成右边对应数量项目行的表格。
如果数量小,手动插入即可完成,如果数量庞大,我们需要用到小技巧解决了。

在工作表名称上右键,查看代码,把下面代码贴进去,运行就可以了。
动图演示过程:

复制下面的代码:
Sub cf()  h = Range("A1").End(xlDown).Row  Rows("1:1").Copy  hn = h + 5  Cells(hn, 1).Select  ActiveSheet.Paste  For i = 2 To h  k = Cells(i, 2)  For j = 1 To k  hn = hn + 1  Cells(hn, 1) = Cells(i, 1)  Cells(hn, 2) = 1  Next j  Next iEnd Sub今天有没有学到呢,赶快自己动手试一试吧!
 

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 加入师哈哈

本版积分规则

QQ| Archiver|手机版|小黑屋| 师哈哈 |网站地图

Copyright © 2019-2025 Www.biiyy.Com.   All Rights Reserved.

Powered by Discuz! X3.4( 苏ICP备14049462-3号 )