VBA 查找特定值并选中整行

找到符合条件的数据并选中整行，以便进行下一步操作。

Sub find()
    Dim mybook As Workbook
    Set mybook = Workbooks("2011明细表.xls")
    
    Set findValue = Worksheets("Sheet1").Columns("B").find(what:="永洲")
    Worksheets("Sheet1").Columns("B").find(what:="永洲").EntireRow.Select
    
    MsgBox (findValue)
End Sub