PTT數位生活區 / Visual_Basic

[VBA ] 迴圈問題

看板Visual_Basic作者 (★相信會更好★)時間3年前 (2021/09/03 16:33), 編輯推噓2(2推 0噓 4→)
留言6則, 3人參與, 3年前最新討論串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, 3年前 , 1F
Insert執行完後，Row的index就會改變了
09/03 16:54, 1F
推
09/04 13:39, 3年前 , 2F
for 少了一個next，另外迴圈順序可以反過來寫。
09/04 13:39, 2F
推
09/07 15:00, 3年前 , 3F
if那行改成
09/07 15:00, 3F
→
09/07 15:01, 3年前 , 4F
aa: If Cells(i, "A").Value = 1 Then rows(i).insert
09/07 15:01, 4F
→
09/07 15:01, 3年前 , 5F
接著上一行沒分段 goto aa
09/07 15:01, 5F
→
09/07 15:02, 3年前 , 6F
接著上一行沒分段 :goto aa
09/07 15:02, 6F
‣ 更多 kevin65002 的文章
文章代碼(AID): #1XCTtX8M (Visual_Basic)
討論串 (同標題文章)
完整討論串 (本文為第 4 之 4 篇)：
排序： 最舊先 | 最新先 | 留言數
1
1
[VBA ] 迴圈問題
xu3jp68
17年前, 01/23
0
6
[VBA ] 迴圈問題
doun
10年前, 01/26
在新視窗開啟完整討論串 (共4篇)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 kevin65002 的文章
文章代碼(AID): #1XCTtX8M (Visual_Basic)