我有一筆資料,想設定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下來才可以啊??