清除除第一个标题之外的列数据 |Excel|VBA|

我想在单击按钮时删除“A”和“B”的列数据 => 除了列 A 和 B 的第一个单元格是标题

我的工作表：

    Private Sub CommandButton1_Click()

        Dim myRange As Range
        Set myRange = ThisWorkbook.Worksheets("Sheet2").Range("A:B")
        myRange.Clear

   End Sub

仅清除数据 [A:B 的第一个标头除外]

【问题讨论】：

标签： excel vba

【解决方案1】：

这里：

Option Explicit
Private Sub CommandButton1_Click()

    Dim myRange As Range
    Dim LastRow As Long 'declare a long variable to find the last row

    With ThisWorkbook.Sheets("Sheet2")
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'last row on column A
        Set myRange = .Range("A2:B" & LastRow) 'this way you avoid headers and clear everything
        myRange.Clear
    End With

End Sub

【讨论】：