Excel VBA实现按名称循环出现特定次数
时间:2022-09-10 10:23:44
我们常常遇到这样的问题:
把一些名称重复输入个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单元格的变量就行了。
标签:代码,名称,类目,赋值,Excel函数
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win10录屏没画面怎么办?Win10录屏没画面的解决方法
2023-11-27 17:05:49
![](https://img.aspxhome.com/file/2023/3/52793_0s.png)
Word平均各栏的长度和高度的方法
2023-02-02 01:17:43
![](https://img.aspxhome.com/file/2023/8/31078_0s.jpg)
word删除空白段落
2022-04-22 05:24:17
![](https://img.aspxhome.com/file/2023/4/34484_0s.gif)
word中样式排版设置技巧
2023-12-06 20:56:42
Win10硬盘重装okldr.mbr错误解决办法
2023-11-14 20:33:45
![](https://img.aspxhome.com/file/2023/6/49056_0s.png)
Excel如何设置下拉菜单选项值变化而整行变颜色
2023-11-30 16:00:39
![](https://img.aspxhome.com/file/2023/7/39987_0s.jpg)
excel如何使用去除重复项计算成绩
2022-02-26 11:29:15
计算百分比
2022-01-21 11:56:23
如何使用Excel表格快速分离姓名和手机号码?
2023-08-22 12:35:01
![](https://img.aspxhome.com/file/2023/0/36140_0s.jpg)
之后单击插入迷你图折线图; 二、在弹出来的对话框中
2022-08-28 02:13:07
WPS2016如何快速替换文字?
2023-10-04 09:01:20
![](https://img.aspxhome.com/file/2023/5/a163575_0s.jpg)
解析excel表格中VLOOKUP函数的使用方法(图文)
2022-04-22 00:04:12
![](https://img.aspxhome.com/file/2023/4/41464_0s.jpg)
excel批量删除括号里的内容
2023-09-11 14:50:02
![](https://img.aspxhome.com/file/2023/1/55051_0s.gif)
Excel中如何设置年月里面包涵子年月日
2022-08-28 12:19:01
![](https://img.aspxhome.com/file/2023/2/37042_0s.png)
如何解决onedrive和office套件,一直提示“缓存的凭证到期”无法保存和修改的问题
2023-11-09 12:35:53
![](https://img.aspxhome.com/file/2023/5/16535_0s.png)
excel2010怎么快速制作一个工作表目录索引?
2023-10-11 19:39:25
![](https://img.aspxhome.com/file/2023/8/40728_0s.jpg)
Excel保存时出现"请注意,您的文档的部分内容可能包含了文档检查器无法删除的个人信息"怎么办
2023-01-26 12:26:50
![](https://img.aspxhome.com/file/2023/9/a155079_0s.png)
如何在Word 2016中使用段落格式命令?
2023-06-25 10:03:00
![](https://img.aspxhome.com/file/2023/8/23448_0s.jpg)
如何改变word目录后面的页码格式?
2023-11-30 03:07:18
![](https://img.aspxhome.com/file/2023/2/18972_0s.jpg)
如何编写代码获取大写锁定键或数字键盘键的状态?
2022-06-26 17:28:58
![](https://img.aspxhome.com/file/2023/0/a142320_0s.png)