vba兑现在sheet1的列A里面搜索和当前点击的单元格内容一致的表格，并且把搜索到的所有行在sheet2，并且要直接跳转过去

vba实现在sheet1的列A里面搜索和当前点击的单元格内容一致的表格，并且把搜索到的所有行在sheet2，并且要直接跳转过去
vba实现在sheet1的列A里面搜索和当前点击的单元格内容一致的表格，并且把搜索到的所有行在sheet2，并且要直接跳转过去
[解决办法]
Private Sub CommandButton1_Click()

a = Worksheets("Sheets1").Range("A65535").End(xlUp).Row
b = Worksheets("Sheets1").Cells(2, 1).Value '表示你鼠标所选取的单元格
Count = 1
For i = 1 To a
    c = Worksheets("Sheets1").Cells(i, 1).Value
    If c = b Then
       Worksheets("Sheets1").Rows(i).Copy Worksheets("Sheets2").Rows(Count)
       Count = Count + 1
    Else
    End If
Next i

Sheets("Sheets2").Select

End Sub