
Sub aa() Sheet2.[d:d].Find(Int(Sheet1.Cells(2, 3).Value / 100) * 100).EntireRow.Select End Sub启动excel后,ALT+F11,插入菜单---插入模板---复制以上代码,然后执行这个宏.

Sub aa() Sheet2.[d:d].Find(Int(Sheet1.Cells(2, 3).Value / 100) * 100).EntireRow.Select End Sub启动excel后,ALT+F11,插入菜单---插入模板---复制以上代码,然后执行这个宏.