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

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

前期准备工作（包括相关工具或所使用的原料等）

电脑及配件有“开发工具”这个菜单的excel软件

详细的操作方法或具体步骤

第一步，可能你们的excel软件上并没有“开发工具”这个菜单，接下来，小编将教大家怎么加入这个菜单。

1.文件——选项——自定义功能区；

2.在自定义功能区的备选区的筛选框中选择 “不在功能区的命令”；

3.拉动滚动条，找到“开发工具”并选中，此时“添加”选项被激活，点击添加，然后点“确定”。之后便可以在菜单中看到“开发工具”。

第二步，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便可以很好地解决这个问题。

第三步，点击“开发工具”，再点击“Visual Basic”,之后跳出来一个界面，点击“视图”菜单，选择“代码窗口；

在代码窗口中输入以下代码：

Private Sub 自动循环填充编号()

Dim i As IntegerDim j As IntegerDim k As IntegerDim m As Integer

m=1

For 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 + 1NextNextNext

End Sub

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

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

注意事项

文中的代码是针对具体问题的，代码本身不能套用，但是可以借鉴其实现循环的方法代码不能输错，细微的错误都会使其无法正常运行Excel vba 解决具体问题(共1篇)经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。