找到符合条件的数据并选中整行,以便进行下一步操作。
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