VBA 語法 delete?

2016-09-30 9:58 pm
各位大大好,小弟初學想請教下,
我有一筆資料,想設定P欄的第幾列只要是空白,該列就刪掉,
可是為什麼執行後,例如中間有8個空白列,卻只會刪掉4列或幾列,
都要執行好幾次才會完全刪掉空白列,請問是那裡寫錯了?程式碼如下:
Dim klj As Integer
klj = Sheets("按鈕").TextBox5.Value * 50
For i = 4 To klj
  If Sheets("會計").Range("P" & i).Value = "" Then
 Sheets("會計").Rows(i).Select
 Selection.Delete Shift:=xlUp
 End If
Next i
更新1:

Cheng ·大大..你好厲害喔 可以了耶..為什麼這樣+1上去不行..-1下來才可以啊??

回答 (1)

2016-10-01 4:27 am
✔ 最佳答案
For i = klj to 4 step-1


收錄日期: 2021-05-03 13:49:40
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20160930135817AAdfsl3

檢視 Wayback Machine 備份