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

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

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

3、第三步，点击“开发工具”，再点击“Visual Basic”,之后跳出来一个界面，点击“视兔脒巛钒图”菜单，选择“代码窗口；在代码窗口中输入以下代码：Private Sub 自动循环填充编号()Di罪焐芡拂m i As IntegerDim j As IntegerDim k As IntegerDim m As Integerm = 1For i = 1 To 10For j = 1 To 20For k = 1 To 4 With Sheet1.Cells(m, 4) = .Cells(i, 1) & .Cells(j, 2) & .Cells(k, 3) End Withm = m + 1NextNextNextEnd Sub

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

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