[VBA ] 循环问题 kevin65002 PTT批踢踢实业坊

[VBA ] 循环问题

楼主: kevin65002 (★相信会更好★) 2021-09-03 16:33:35

各位大大好,小弟有个问题请教
小弟想让符合条件的值上面添加一列，
所以小弟写了以下的代码
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastrow
If Cells(i, "A").Value = 1 Then
Rows(i).Insert
执行几次循环后，他始终都是把列加在第一笔符合条件的上面加一行列
请问为何会这样呀?
https://imgur.com/a/LOvemop

作者: O2000 (吵死了闭嘴啦) 2021-09-03 16:54:00

Insert执行完后，Row的index就会改变了

作者: kumasan123 (熊先生) 2021-09-04 13:39:00

for 少了一个next，另外循环顺序可以反过来写。

作者: waiter337 (给开司一罐苏格登) 2021-09-07 15:00:00

if那行改成aa: If Cells(i, "A").Value = 1 Then rows(i).insert接着上一行没分段 goto aa接着上一行没分段 :goto aa

继续阅读

[VBA ] excel宏名称问题kevin65002 [VBA] 系统window2012 爬虫chunchanhung [VBA ] 闪退问题oscar222 [VBA ]请教 VBA 连接 IE 抓取资料qaz0955qaz [VBA ] 如何抓取变动范围jimmysunman [.NET] 总线报告的装置描述Xavier [VBA ] 溢位问题areric [VBA ] 关于编译器在13.3吋与 14吋笔电下的问题avant [VBS ] act.run后加参数？vernc [VBA ] 连接ORACLE SQL读回来的中文变问号a0813