关于一段自动复制粘帖的语句错误求解

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      Dim i As Integer
      Dim a As Integer
      If Target.Column = 4 Then
      i = 2
        Sheet2.Cells(i, 7).CurrentRegion.Copy a
             If Target.Text = a Then
             Application.DisplayAlerts = False
             Sheet2.Cells(i, 7).CurrentRegion.Copy Target
             Application.DisplayAlerts = True
             End If
             i = i + 1
             End If
End Sub





具体想实现的功能如下：
表1中的D列实现下拉菜单后，自动判定表1-D列中是否与存在与表2中的G列中存在的任一表格相同，如果相同则复制表2中G列的相同表格值进行替换。

或者不用宏可以实现下拉列表带有超链接和备注功能的么？

感谢帮忙

[ 本帖最后由 biler 于 2011-8-5 18:45 编辑 ]

欢迎新会员！
需要上传表格附件，才容易得到回复。

感谢

大概就是表1的D列进行选择后，把表2的G列 一样的数据表进行复制替换表1的D列

思考中，勿扰！！