VBA Excel单元格赋值 批量赋值 自动编号

第一次接触VBA还是6年前，那个时候用Excel 2000，通过VBA还做了一个自动处理报表的程序。从那之后就再没有弄过这个东西，现在突然间想用，才发现完全搞忘记了。只记得进入VBA调试的命令是 Alt + F11。

现在我使用的是Excel 2007，我直接按下了Alt + F11，不错MicroSoft还是保留了这个快捷键。下面我就开始了我的VBA自动累加赋值工作。

1. 我进行自动赋值前的数据表如下，第一列是需要自动编号的：

VBA处理原始数据表

注意：我的数据是在第二张表格里，名字叫 用户信息

2. Alt + F11后会弹出下面的画面：

VBA编辑环境

3.双击第二张数据表: 用户信息 表格后会有一个编辑窗口弹出，并且在编辑窗口中输入VBA代码

注: Sheet1, Sheet2是Excel给每张表的 “系统名”，括号里面的是我自己设定的表名

注：为方便你验证，附上代码，你只需要copy即可。

Sub setValue()

For i = 2 To 300
Cells(i, 1).Value = i + 38
Next

End Sub

4.完成代码后按下 “运行”按钮，会有对话框弹出，选择“运行”即可：

5.完成后即可查看处理后的数据表：

6. 对VBA中代码做简单解释：

下面给出其它一些例子，但不再提供代码Copy : ) 自己敲下代码，印象更深

1. 第一列从第5行到第10行，从0开始编号：

2.从第5行到第10行，第1列到第2列，从1开始编号：

注：如有不对之处，敬请谅解

本文原载于三大炮(sandapao.com)，原文地址为http://www.sandapao.com/html/y2009/08/vba-excel-set-value.html