VBA实现Excel自动填充

　　鉴于网友提问：当数据量较大的时候，不用下拉的方式，如何在Excel中实现自动填充？

本文以下面的例子(以Excel2003为例)讲解如何利用VBA实现自动填充。

例：利用VBA在Excel的第一列自动填充www.52yfjc.com1到www.52yfjc.com10000

1.执行：工具→宏→Visual Basic编辑器（快捷键 Alt+F11），如下图：

2.在打开的Visual Basic编辑器中，选择“Worksheet”和“SelctionChange”，如下图：

3.输入代码并保存：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 10000
Cells(i, 1) = "www.52yfjc.com" & i
Next
End Sub

4.返回到Excel中，鼠标任意单击一个单元格。即可实现自动填充。