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

Question

在一个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天                                 蒋生

Answer 1

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 iEnd Sub

Answer 2

够详细了吧~~~
在sheet1的Worksheet_Change事件过程中写入上面的代码应该就可以了