do ... loop
我们提供的服务有：成都网站制作、网站设计、外贸网站建设、微信公众号开发、网站优化、网站认证、竞秀ssl等。为上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的竞秀网站制作公司
do while ... loop
do until ... loop
do ... loop while
do ... loop until
各有不同作用，有的先处理再判断，有的先判断再处理
你确信只循环一次吗？我看不像，在最后添加上一句msgbox jishu1，多半显示3。
是在第二块代码中有问题，你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。
因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后，下一个循环一开始就符合退出条件了，所以循环没有进行了。
Do
System.Windows.Forms.Application.DoEvents()
Loop Until AxMSComm1.InBufferCount 0
死循环。
