Cells.Find(What:="電腦1").Activate Cells.FindNext(After:=ActiveCell).Activate ActiveCell.Offset(1, 0).Select. 以上三行第2行刪除, 改為: Cells.
tw.knowledge.yahoo.com