從特定行Excel VBA中刪除一行

Question

wsIMP.Columns(4).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

代碼將刪除D中的所有空單元格，我想要的是，有沒有辦法在第6行開始添加更多代碼？

我雖然它很簡單，如.Rows（6）.Columns（4），但它似乎不起作用。 任何人都知道如何使這項工作正常？

Answer 1

嘗試這個：

wsIMP.Range("D6","D" & wsIMP.rows.count).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Answer 2

dim lastrow as Long

With wsIMP
    lastrow = .Range("D" & .rows.count).end(xlup).Row 
    .Range("D6:D" & lastrow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With

如果您希望在評論中寫一行，請執行此操作。

wsIMP.Range("D6:D" & wsIMP.Range("D" & wsIMP.Rows.Count).End(xlUp).Row).SpecialCells ...

但如果你問我，那就更難讀了。

Answer 3

嗯，我沒有過多地使用excel中的編碼，但我在Access中做了很多，我覺得我記得使用.Colums（6）（4）或.columns（6,4）來這樣做，也許給每個人快速拍攝。 如果這些都不起作用，我恐怕無法幫助。