Как очистить данные между первой и последней строкой в ​​столбце Excel

Question

Мне нужно очистить данные между первой и последней ячейками в столбце Excel.Я пробовал этот код, но он удаляет данные со всего листа, мне нужно только для определенного столбца.

Sub DeleteRow()
Dim i1 As Long
Dim iMax As Long
iMax = Cells.SpecialCells(xlCellTypeLastCell).row

For i1 = iMax - 1 To 2 Step - 1
    Rows(i1).EntireRow.Clear
Next i1

End Sub

Answer 1

Это очистит содержимое между первой строкой и последней строкой в ​​столбце А.

Sub ClearRows()
    Dim lastRow As Long

    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A2:A" & lastRow - 1).ClearContents
End Sub