Excel VBA实现按名称循环出现特定次数
发布时间：2022-09-10 10:23:44
标签：代码,名称,类目,赋值,Excel函数
我们常常遇到这样的问题：
把一些名称重复输入个N行，N是特定的，比如说。结果大概这样：
为什么我们要做这样的事情呢。其实这样的应用场景很多，比如说促销活动选品，不同类目名称要有不同的个数。类目属性调整，不同类目也是不同的属性项，也就有了不同的次数。不同行业也有各自不同的场景。
以往基本上就是手动来做，很辛苦。名称越多，越辛苦。
现在如果会VBA就能用VBA来实现自动化，当然学好VBA，不是一天两天的事情。
下面就来分享我的代码，首先感谢一起学习VBA的朋友的帮助，我就差那1句代码。但这句却是最难想到的。
全部代码如下：
Alt+F11，进入VBE编辑器，插入模块，放入代码：
Public Sub chongf()’名称N次重复
Dim m as integer，i as integer，k as integer
m = 3 ‘赋值
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row’到非空最末
msgtr = Range("b" & i) ‘区域赋值变量比直接赋值更易懂
For k = 1 To msgtr
Range("d" & m – 1) = Cells(i, 1)
m = m + 1 ‘让m产生变化是代码重点，我就缺这句。
Next
Next
End Sub
最后就能实现效果：
我最早缺少那句时，我能写出for 双循环，但是我无法实现输出的数据每次下移一个单元格。原来构造一个每次加1单元格的变量就行了。
0
投稿猜你喜欢
5 月 20 日消息 苹果现已在 iPad 上更新了 Apple Store 应用。除多种改进和增强性能外，苹果还为 iPad- 当在进行文档编辑时，如何在制作好的Word表格中添加行?下面由小编为您提供更多的技巧，希望能帮助您。Word 2003如何在制作好的表格中添
- 很多小伙伴在使用PPT做报告时必不可免要插入录音音频或背景音乐让PPT的内容更加丰富，那么如何在PPT里插入录音呢？今天小编就带大家操作一遍
- 这篇文章主要介绍了Windows任务栏中音量小喇叭不见了的解决方法,本文使用注册表解决了音量图标重启就不见的问题,需要的朋友可以参考下&nb
- 经常使用WPS表格的朋友应该知道，如果前期没有为表格文件添加边框，在打印的时候是不显示边框的，那么WPS表格如何添加表格边框呢?其实方法很简
- 很多 Excel 表格里都有一些重要信息，但是当我们给别人发Excel表格时，别人可能会不小心或者故意更改表中数据。怎么才能避免这些表格的数
- 苹果上周宣布，WWDC 2020 将于 6 月 22 日拉开帷幕，由于疫情的缘故，此次大会首次采用线上的形式举办。此外，苹果计划在今年的 W
- 日常中，会经常用到EXCEL，如果要用到EXCEL，那么EXCEL里的表格制作、函数运用以及透视表功能肯定会要用到的，今天小编为大家带来了这
- 校友邦如何签到？校友邦具有实习记录、在线求职等功能，是一款大学生知识分享平台。校友邦要如何签到呢，下面就给大家分享具体步骤。1、首先，小伙伴
- 使用公式对数据进行合并计算。在公式中使用要组合的其他工作表的单元格引用或三维引用（三维引用指对跨越工作簿中两个或多个工作表的区域的引用），因
- 据外媒报道，过去10年PC性能飞速发展，但以太网数据传输速率与10年前相比没有什么提升，还是1Gbps。IEEE(国际电气和电子工程师学会
- 如果你希望避免闲人翻看个人隐私文件，那么，不必通过加密过程，你可以通过基本的批处理代码来创建一个密码保护的文件夹，想知道的朋友一起来看看吧如
- 当我们在excel表格中输入以0为开头的数据时，表格总是默认的把前面的0去掉，因为整数数字前加0不改变数据实际大小，如何在在表格当中显示出来
- 明天，Windows 10一周年更新就要正式推送了，微软表示，使用自家的Media Creation Tool升级Windows 10一周年
- 用户在wps软件上编辑文档时，可以感受到许多实用的功能帮助自己解决了不少的问题，用户在编辑的过程中可以找到自己需要的功能来使用，并且wps结
- Outlook日历是Win8/Win8.1/Win10中默认内置的应用,支持添加事件,为我们的生活和工作带来方便,最新版《Outlook日历
- win10怎么设置高对比度的反转颜色呢？设置反转颜色后，可以根据颜色来分类，可以很快找到你想要的类别，但是缺点是高度对比可能造成视觉上的误导
- 2020子鼠年就要到了，好多小伙伴问小编有没有鼠年素材，2020新春海报？小编偷偷告诉你有呢，今天就给大家分类整理了一下2020鼠年海报素材
- 在工作中经常需要将wps表格打印出来，如果我们需要将wps表格打印在一张纸上，但是出来的效果不尽人意怎么办?接下来小编举例简单的例子告诉大家
- 1、Text函数表示将数值转化为自己想要的文本格式。2、text函数的语法格式为：text(value,format_text）Value为
