如何清除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

這將清除A列中第一行和最后一行之間的內容。

Sub ClearRows()
    Dim lastRow As Long

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