你使用这一段就行: 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”替换成你实际要查找的范围比如“A1:A100”将最后一行的Selection.ClearContents换成row(Selection.row).selectselection.delete
顶一下
(0)
0%
踩一下
(0)
0%
- 相关评论
- 我要评论
-
上一篇:返回栏目