如何清除excel列中第一行和最后一行之间的数据

Question

I need to clear data between first cell and last cell in a excel column. I tried this code, but it deletes the data from the entire sheet, I need only for a specific column.

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

This would clear content between the first row and the last row in column A.

Sub ClearRows()
    Dim lastRow As Long

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