请大家帮忙看一下，这个功能如何实现。

debra

以下是我自己写的，回车后没有任何响应。
请大家帮忙看一下。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i, j As Integer
j = 7
On Error Resume Next
If Target = Worksheets("Sheet1").Cells(4, 4) Then
For i = 2 To 60
If Worksheets("Sheet2").Cells(i, 3).Value = Worksheets("Sheet1").Cells(4, 4) Then
Worksheets("Sheet1").Cells(j, 3).Value = Worksheets("Sheet2").Cells(i, 2)
Worksheets("Sheet1").Cells(j, 4).Value = Worksheets("Sheet2").Cells(i, 3)
Worksheets("Sheet1").Cells(j, 5).Value = Worksheets("Sheet2").Cells(i, 4)
Worksheets("Sheet1").Cells(j, 6).Value = Worksheets("Sheet2").Cells(i, 5)
Worksheets("Sheet1").Cells(j, 7).Value = Worksheets("Sheet2").Cells(i, 6)
Worksheets("Sheet1").Cells(j, 8).Value = Worksheets("Sheet2").Cells(i, 7)
Worksheets("Sheet1").Cells(4, 4) = ""
j = j + 1
End If
Next
End If
End Sub

ACMAIN_CHM

if Target.Address="$D$4" then

1。 学会使用调试，和立即窗口
2。 学会查找EXCEL的帮助文档。


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

debra

没有任何错误提示，输入关键字后，回车没有任何反映。