excel - 删除从特定行开始的行，Excel VBA

Question

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

该代码将删除 D 中所有我想要的空单元格，有没有办法在此代码中添加更多内容以从第 6 行开始？

我虽然它会像 .Rows(6).Columns(4) 一样简单，但它似乎不起作用。任何人都知道如何使这项工作正常工作？

Answer 1

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 2

尝试这个：

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

Answer 3

嗯，我没有在 excel 中进行过多的编码工作，但是我在 Access 中做了很多工作，我觉得我记得使用 .Colums(6)(4) 或 .columns(6,4) 来这样做，也许给每个人一个快速的镜头。如果这些都不起作用，恐怕我无能为力。