作者kevin65002 (★相信会更好★)
看板Visual_Basic
标题[VBA ] 回圈问题
时间Fri Sep 3 16:33:35 2021
各位大大好,小弟有个问题请教
小弟想让符合条件的值上面添加一列，
所以小弟写了以下的代码
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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 163.23.80.141 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1630658017.A.216.html
1F：→ O2000: Insert执行完後，Row的index就会改变了 09/03 16:54
2F：推 kumasan123: for 少了一个next，另外回圈顺序可以反过来写。 09/04 13:39
3F：推 waiter337: if那行改成 09/07 15:00
4F：→ waiter337: aa: If Cells(i, "A").Value = 1 Then rows(i).insert 09/07 15:01
5F：→ waiter337: 接着上一行没分段 goto aa 09/07 15:01
6F：→ waiter337: 接着上一行没分段 :goto aa 09/07 15:02