將mytel設為字符串
暗淡的我只要
調暗rn As範圍
帶活動表。使用範圍
Mytel = TextBox1。“Text”將文本框1的內容賦予變量mytel。
對於I = 1到【A65536】。結束（XLUP）。Row查詢整個工作表sheet1。
設置rn =細胞。查找（what:=“*“& amp；《我的電話》& amp“*“，look at:= XL part‘查找內容。
如果不是rn就什麽都不是
firstAddress = rn。地址
做
Msgbox rn。“值”顯示找到的單元格值。
設置rn =。尋找下壹個。
循環While Not rn Nothing And rn。地址& lt& gt“第壹地址”直到壹個輪回。
如果…就會結束
代碼參考