找到符合条件的数据并选中整行,以便进行下一步操作。
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 SubVBA 查找特定值并选中整行
最新推荐文章于 2023-07-06 17:38:03 发布