[VBA ] 迴圈問題

看板Visual_Basic作者 (★相信會更好★)時間2年前 (2021/09/03 16:33), 編輯推噓2(204)
留言6則, 3人參與, 2年前最新討論串4/4 (看更多)
各位大大好,小弟有個問題請教 小弟想讓符合條件的值上面添加一列, 所以小弟寫了以下的代碼 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://www.ptt.cc/bbs/Visual_Basic/M.1630658017.A.216.html

09/03 16:54, 2年前 , 1F
Insert執行完後,Row的index就會改變了
09/03 16:54, 1F

09/04 13:39, 2年前 , 2F
for 少了一個next,另外迴圈順序可以反過來寫。
09/04 13:39, 2F

09/07 15:00, 2年前 , 3F
if那行改成
09/07 15:00, 3F

09/07 15:01, 2年前 , 4F
aa: If Cells(i, "A").Value = 1 Then rows(i).insert
09/07 15:01, 4F

09/07 15:01, 2年前 , 5F
接著上一行沒分段 goto aa
09/07 15:01, 5F

09/07 15:02, 2年前 , 6F
接著上一行沒分段 :goto aa
09/07 15:02, 6F
文章代碼(AID): #1XCTtX8M (Visual_Basic)
文章代碼(AID): #1XCTtX8M (Visual_Basic)