你确信只循环一次吗？我看不像，在最后添加上一句msgbox jishu1，多半显示3。
创新互联公司专注于故城企业网站建设,响应式网站设计,成都做商城网站。故城网站建设公司,为故城等地区提供建站服务。全流程按需网站建设，专业设计，全程项目跟踪，创新互联公司专业和态度为您提供的服务
是在第二块代码中有问题，你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。
因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后，下一个循环一开始就符合退出条件了，所以循环没有进行了。
你是要把连续多个空格，变换成只需要一个空格，那么：
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格，替换2个空格
loop
textbox.text = "12345" " " "67890"
或者
textbox.text = "12345" space(1) "67890"
首先你的textbox有一个属性得设置成多行、支持回车符才行
其次，换行符我记得直接用\n就行
n个空格你就写个循环用，每次循环就加上" "就行。
