蜜汁鱼片 2021-08-06 10:03 采纳率: 100%
浏览 392
已结题

VBA如何删除指定区域内容

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

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

  • 写回答

2条回答 默认 最新

  • 一路向前的小Q 2021-08-06 12:14
    关注

    先看效果图:

    img
    代码如下:

    
    ```vba
    
    Sub 删除当页内容() '1ThisWorkbook.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
    
    

    ```
    有问题私我,望采纳!

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

问题事件

  • 系统已结题 8月18日
  • 已采纳回答 8月10日
  • 创建了问题 8月6日

悬赏问题

  • ¥15 Catia V5 R20 64位 安装过程中选择orbix配置创建套接字失败
  • ¥100 C51单片机设计交通灯时出现的问题
  • ¥15 R语言爬虫的时候元素和园代码不一样怎么解决呀
  • ¥15 VS2022多项目启动有问题
  • ¥15 SQL删除添加数据后序号不连续问题。
  • ¥15 首次运行OmniEvent运行报错
  • ¥15 有没有人知道这个问题怎么解决
  • ¥15 comsol电力电缆载流量仿真
  • ¥15 webSocket可以接TCP socket接口吗
  • ¥60 mpi并行出错,CFD++计算