从特定行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）要做到这一点，也许给每个人快速拍摄。如果这些都不起作用，我恐怕无法帮助。