从特定行Excel VBA中删除一行

Question

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

The code will delete everything in D that is an empty cell, which I want, is there a way to add more into this code to start at row 6?

I though it would be simple like .Rows(6).Columns(4), but it doesn't seem to work. Anyone got an idea how to make this work correctly?

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

If you wish to write in one line, as in your comment, do this.

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

But if you ask me, that is much harder to read.

Answer 3

Hm, I haven't worked with coding in excel too much, but I've done quite a bit in Access, and I feel like I remember using either .Colums(6)(4) or .columns(6,4) to do this, maybe give each of those a quick shot. If neither of those work, I'm afraid I can't help.