VBA操作excel有关问题

VBA操作excel问题
sheet1中有一个下拉列表框，里面有值a,b,c,d;
sheet2中有一列结果值a,a,a,b,a,c,d,e,f;
现在想通过VBA语言写一个判断逻辑，当我在sheet1中选择a的时候，在sheet2中只显示对应的值？
没写过VBA，求大家帮个忙。
[解决办法]
本帖最后由 bcrun 于 2013-04-19 08:36:37 编辑

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Count = 1 Then
         If Target <> "" Then
             Worksheets("Sheet2").Range("a1:a18").AutoFilter Field:=1, Criteria1:=Target
         End If
     End If
End Sub