怎么写这种循环：对单元格中的每个字符循环，遇到软回车进入下一轮循环。
求助ing……
VBA对单元格内容中的内容循环，以软回车为界限，即每到软回车就进入下一轮循环？
答案:2 悬赏:20 手机版
解决时间 2021-12-26 07:25
- 提问者网友：沉默的哀伤
- 2021-12-25 23:48
最佳答案
- 五星知识达人网友：渊鱼
- 2022-01-06 09:08
用do loop循环就行了呀。
Sub aa()
Do
r = r + 1
c = Mid([A1], r, 1)
MsgBox c
Loop Until c = Chr(10)
End Sub楼主可以测试以上代码，至于要进入下一轮循环，goto到do所在的行就可以了。注意死循环，设置一个跳出循环的代码。
Sub aa()
Do
r = r + 1
c = Mid([A1], r, 1)
MsgBox c
Loop Until c = Chr(10)
End Sub楼主可以测试以上代码，至于要进入下一轮循环，goto到do所在的行就可以了。注意死循环，设置一个跳出循环的代码。
全部回答
- 1楼网友：蓝房子
- 2022-01-06 10:34
试试在sub开始处加上
application.screenupdating = false
试试别用select方法而取代为activate方法
结束前加上
application.screenupdating = ture
保证excel刷新最新状态
祝你顺利
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯