在EXCEL中做了一个宏,通过查找一个关键字比如“帐户|”,然后要把这个单...答:你使用这一段就行:Range("A1").Select Cells.Find(What:="帐户", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _, MatchByte:=False, SearchFormat:=False).Activate Selection.ClearContents 将其中“A1”替换成...
如何让xls打开时,自动弹出查找的窗口,最好还能修改窗口显示的信息??答:Sub auto_open()x = InputBox("你想输入的窗口信息")Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _, MatchByte:=False, SearchFormat:=False).Activate End Sub ...