INPUTBOX没有跳行sName = Application.InputBox("请输入你的名字，所在的城市，年龄", Type:=1)
sText = sName&chr(10)&sCity&chr(10)&iAge
