鉴于网友提问:当数据量较大的时候,不用下拉的方式,如何在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中,鼠标任意单击一个单元格。即可实现自动填充。