VBA如何删除指定区域内容

Question

我需要选中比如A2开始到最右下角那个单元格
应该可以用range().delete
但是不知道如何表达最右下角那个单元格

另外 需要批量操作10张表的话 ，如何写？
比如 删除表1-表10的A2开始到最右下角单元格区域的全部内容

Answer 1

先看效果图：

代码如下：

```vba

Sub 删除当页内容() '第1页
ThisWorkbook.Sheets(1).Select
aa = ThisWorkbook.ActiveSheet.UsedRange.Rows.Count
bb = ThisWorkbook.ActiveSheet.UsedRange.Columns.Count
Sheet1.Application.Range(Cells(1, 1), Cells(aa, bb)).Delete '这里是你删除的位置设置，我这里设置的是从A1开始

End Sub

Sub 删除3页内容()

a = ThisWorkbook.Sheets.Count
For i = 1 To a
ThisWorkbook.Sheets(i).Select
aa = ThisWorkbook.ActiveSheet.UsedRange.Rows.Count
bb = ThisWorkbook.ActiveSheet.UsedRange.Columns.Count
Sheets(i).Application.Range(Cells(1, 1), Cells(aa, bb)).Delete
Next
End Sub

```
有问题私我，望采纳！