Excel VBA中的Range和for的简单结合

在VBA里，Range函数主要是用来帮助我们定位区域，比如说Range("A1")，就可以定位到A1单元格。

我们打开一个工作表，点击“开发工具”选项卡下的“Visual Basic”，打开VBE编程环境。

2. 右键鼠标当前的工作表Sheet3，点击“插入”一个模块，随之会有一个代码编辑窗口。

3. 添加一个新的过程test或直接写出代码。

代码：

Sub test()

End Sub

4. 在过程中添加一个Range函数，并令其在单元格中输入对应的信息，再点击“执行子过程”或回到Excel工作表中点击“宏”执行test。

代码：

Sub test()

Range("A1") = 214

End Sub

5. 再次添加之前文章中的for循环到test过程中去，我们希望其执行从A1到A10单元格都输入信息“214”。但这里在Range中我们要让单元格的A列不变而行数发生变化，也就是A后面的数字为变量i；利用&符号即可实现。这与我们在Excel中将两个单元格中的信息连接到一起是同样的原理。

代码：

Sub test()

Dim i As Integer

For i = 1 To 10

Range("A" & i) = 214

End Sub

6. 再次执行后就会得到结果A1到A10都输入“214”。