写个VBA，清除sheet1 第10行开始的第一到第十列中的所有内容

以下是一个VBA代码示例，用于清除Sheet1中从第10行开始的第一到第十列的内容：

Sub ClearContent()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    If lastRow >= 10 Then
        ws.Range("A10:J" & lastRow).ClearContents
    End If
End Sub

这段VBA代码首先将工作表 "Sheet1" 分配给变量 ws。然后，它找到第一列最后一行的行号，以确定最后一行的位置。接下来，它检查最后一行是否大于等于10，如果是，则使用 `ClearContents` 方法清除从第10行开始的第一到第十列的内容。

您可以将此代码复制并粘贴到Excel的 VBA编辑器中，然后运行 `ClearContent` 宏以执行清除操作。请确保在运行之前保存您的工作簿。如果您需要在其他工作表上执行相同的操作，请修改代码中的工作表名称。

希望这可以帮助到您。如果您有任何其他问题，请随时提问。