数据输入及在另一个表中显示

在一个EXCEL工作簿中，有两个表：A和B。内容如下：其中AB两个表格中都有相同列：合同号，B表中有所有合同号列的内容，现在想A表中合同号列输入资料后，所对应的B合同号列相同内容所在的行就会充填着色显示出来。如在A表合同号列中输入GA090506001后，B表合同号列对应的GA090506001行就会填充显示！谢谢大家!!! EXCEL文件如附件

A表：
项目编号                 项目名称                    签约单位                  合同号
1                        PA0001                       光明医院                   GA090506001
2                        PA0002                       希望小学
3                        PA0003                       长虹公司
4
5
6
7
8
9

B表：
合同号                       所需物料                       工时                              项目负责人
GA090506001                 灯管、线材                      5天                                 张生
GA081226005                 木材、地砖                      12天                                李生
GA090100901                 电阻、电容                      8天                                 王生
GA100316004                 IC、线路板                      30天                                 刘生
GA090909003                 塑胶料                          15天                                 邓生
GA071201008                 五金材料                        40天                                 叶生
GA100709001                 泡沫                            26天                                 蒋生

Private Sub Worksheet_Change(ByVal Target As Range)
myhth = Trim(Target.Value)
For i = 2 To ThisWorkbook.Worksheets("sheet2").UsedRange.Rows.Count
    If myhth = Trim(ThisWorkbook.Worksheets("sheet2").Cells(i, 1).Value) Then
        ThisWorkbook.Worksheets("sheet2").Activate
        myrange = Trim(Str(i)) & ":" & Trim(Str(i))
        ThisWorkbook.Worksheets("sheet2").Rows(myrange).Select
        With Selection.Interior
            .ColorIndex = 45
        End With
        Exit For
    End If
Next i

End Sub

  謝謝樓上的兄弟,請問能詳細點嗎? 够详细了吧~~~
在sheet1的Worksheet_Change事件过程中写入上面的代码应该就可以了再次謝謝您的回復.再請問您一下,您的代碼是工作表區域變更事件,能不能只定位到某一列事件的改變,即這一列輸入數據後就會觸發這個事件,也就是請問有沒有列變更事情.謝謝.
  我将A表的中行资料选择复制，也会出现错误提示。请问能去掉这个吗？

补充：VB ,  VBA