Dim str As String = Tables("表A")(0)(0)
msgbox(str.Replace(" ", "").replace(Chr(10), "").replace(chr(13), ""))
加好友 
发短信
Post By：2016/4/13 2:36:00 [显示全部帖子]
