你好,欢迎访问远方教程PC版!
广告位招租

VBA实现Excel自动填充

[日期:2015-09-03]   来源:远方教程  作者:远方教程   阅读:2801次[字体: ] 访问[旧版]
 捐赠远方教程 

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

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

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

1.执行:工具宏→Visual Basic编辑器(快捷键 Alt+F11),如下图:

VBA实现Excel自动填充-远方教程

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

VBA实现Excel自动填充-远方教程

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中,鼠标任意单击一个单元格。即可实现自动填充。

图片展示
 
相关评论
站长推荐