您可以使用以下VBA代码清除指定单元格中的内容:
```
Sub ClearCell()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") '替换为您要操作的工作表名称
'清除A1单元格中的内容
ws.Range("A1").ClearContents
'清除B2单元格中的内容
ws.Range("B2").ClearContents
'清除C3单元格中的内容
ws.Range("C3").ClearContents
'以此类推,根据需要清除其他单元格中的内容
End Sub
```
请注意,这段代码假设您要清除名为“Sheet1”的工作表中的单元格内容。如果您要清除其他工作表中的单元格内容,请替换代码中的工作表名称和单元格地址。