Excel vba 解决具体问题：[1]循环应用（一）

vba是vb语言与excel软件结合而衍生的一种实用性的语言；其灵活性、自动化操作等特点使得其被广泛接受和使用。本篇中，小编讲给大家分享一个利用vba解决循环问题的实例。

工具/原料

电脑及配件

有“开发工具”这个菜单的excel软件

方法/步骤

1、第一步，可能你们的excel软件上并没有“开发工具”这个菜单，接下来，小编将教大家怎么加入这个菜单。1.文件——选项——自定义功能区；2.在自定义功能区的备选区的筛选框中选择“不在功能区的命令”；3.拉动滚动条，找到“开发工具”并选中，此时“添加”选项被激活，点击添加，然后点“确定”。之后便可以在菜单中看到“开发工具”。

2、第二步，sheet1中，在A1到A10中分别输入a,b,c,d,...,j10个字母，在B龀音孵茧1到B20蒗钰妒蟥中分别输入1,2,3，...,20这20个数字，在C1到C4输入甲、乙、丙、丁，如下图所示。要求：让第一列的字母分别和第二列的数字和第三列的四个字进行排列组合形成一个编号并填充在D列。即为：1a甲，1a乙，1a丙，...1b甲，1b乙，...如此一直循环。通过数学计算可知一共有10*20*4=800个编号，如果通过手工操作，肯定很麻烦，而且容易出错。那么使用vba便可以很好地解决这个问题。

3、第三步，点击“开发工具”，再点击“VisualBasic”,之后跳出来一个界面，点击“视兔脒巛钒图”菜单，选择“代码窗口；在代码窗口中输入以下代码：PrivateSub自动循环填充编号()Di罪焐芡拂miAsIntegerDimjAsIntegerDimkAsIntegerDimmAsIntegerm=1Fori=1To10Forj=1To20Fork=1To4WithSheet1.Cells(m,4)=.Cells(i,1)&.Cells(j,2)&.Cells(k,3)EndWithm=m+1NextNextNextEndSub

4、第四步，点击“运行”菜单，选择“运行子过程或者窗体”。

5、第五步，关闭VisualBasic窗口，返回工作表界面，可以看到操作后的效果如下图所示。