用Cells.Find找到这个Cell,然后把其中的Value读出来就行了。
下面是事例代码:
Cells.Find(What:="'", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=False)