excel - 特定の行、ExcelVBAで始まる行を削除します

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

コメントのように1行で書きたい場合は、これを行います。

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

しかし、あなたが私に尋ねると、それははるかに読みにくいです。

Answer 3

うーん、私はExcelでコーディングをあまり行っていませんが、Accessでかなりの作業を行っており、.Colums（6）（4）または.columns（6,4）のいずれかを使用したことを覚えているようです。これを行う、多分それらのそれぞれにクイックショットを与える。どちらもうまくいかない場合は、仕方がないのではないかと思います。