怎样用VBA在Excel中实现自动填充功能

Answer 1

1.下面看实例。

2.上图中，在Sheet1中，A列的A3单元格，数据是“李四”；

3.看上图，Sheet2中的A23单元格，内容也是“李四”；

　　现在，要做的是，在Sheet1中，点击A3中的“李四”，就会自动跳到Sheet2中的A23单元格。

　　可以这样说，无论点击Sheet1A列中的任何一个单元格，只要在Sheet2中的A列，有与其值相同的，就自动跳到Sheet2的相应单元格；

　　方法是：右键点击“Sheet1”，在弹出的快捷菜单中，点击“查看代码”，如下图。

4.之后，会弹出如下图一个的VB代码编写窗口。

5.这个时候，无须做额外的代码编写，只需要按照上图，把代码粘贴上去就完成了。

　　为了方便大家的学习，下面，将代码贴到下文：

　　Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Column = 1 Then
　　If Sheet1.Cells(Target.Row, 1) <> "" Then
　　For i = 1 To Sheet2.UsedRange.Rows.Count
　　If Sheet2.Cells(i, 1).Value = Sheet1.Cells(Target.Row, 1).Value Then
　　Sheet2.Activate
　　Sheet2.Range("A" & i).Select
　　End If
　　Next i
　　End If
　　End If
　　End Sub