[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