Sub aa() Cells.Find(What:=[A1], After:=ActiveCell).Activate End Sub 根据A1中输入的内容,在整个当前工作表中查找,其实就是EXCEL本身的查找功能,只是没有调出那个对话框而已。