Dim iStr As String
IStr = InputBox（“請輸入您要查找的字符:“，“查找內容窗口“）
如果iStr & lt& gt”“那麽
帶範圍（“A1:A10“）
設置rng =。find（iStr，after:= Range（“a 10“），lookat:=xlPart）
如果不是rng什麽都不是
addrs = rng。地址（0，0）
做
msg = IIf（msg =““，rng。地址（0，0）、消息& amp“，“& amprng。地址（0，0）
設置rng =。查找下壹個
loop While Not RNG Nothing And RNG。地址（0，0）& lt；& gt地址
如果…就會結束
以…結尾
如果…就會結束
MsgBox“contains“&；伊斯特爾& amp字符的單元格是:“&；味精
末端接頭