EXCEL VBA 清空Excel工作表(Sheet)的方法

1. 删除所有内容,但保留格式和对象

这种方法只会清除单元格的内容,不会影响格式和嵌入的图表或对象。

vba 复制代码
Sub ClearSheetContents()
    Worksheets("Sheet1").Cells.ClearContents
End Sub

2. 删除所有内容和格式,但保留对象

这种方法会删除单元格中的内容和格式,但不会删除如图表、形状等对象。

vba 复制代码
Sub ClearSheetContentsAndFormats()
    Worksheets("Sheet1").Cells.Clear
End Sub

3. 删除所有内容、格式和对象

这种方法会彻底清空工作表,包括所有内容、格式和嵌入的对象。

vba 复制代码
Sub ClearEverything()
    With Worksheets("Sheet1")
        .Cells.Clear
        Dim shp As Shape
        For Each shp In .Shapes
            shp.Delete
        Next shp
    End With
End Sub

4. 只删除特定区域的内容和格式

如果你只需要清空工作表中的特定区域,可以指定范围。

vba 复制代码
Sub ClearSpecificRange()
    Worksheets("Sheet1").Range("A1:D10").Clear
End Sub

5. 删除整个工作表后重新添加

如果彻底删除工作表然后重新开始,可以使用这种方法。这种方法会移除工作表后重新创建一个同名的工作表。

vba 复制代码
Sub DeleteAndRecreateSheet()
    Dim wsName As String
    wsName = "Sheet1"
    Application.DisplayAlerts = False
    Worksheets(wsName).Delete
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = wsName
    Application.DisplayAlerts = True
End Sub

6. 使用UsedRange清空

如果只想清空工作表中使用过的区域,可以使用UsedRange属性。

vba 复制代码
Sub ClearUsedRange()
    Worksheets("Sheet1").UsedRange.Clear
End Sub

举例

从单元格 F1 开始,清除该点向右和向下的所有已使用范围(即F1及其右侧和下方的所有单元格)。

vba 复制代码
Sub ClearFromF1DownRight()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取从F1开始向右向下的UsedRange
    Dim startCell As Range
    Set startCell = ws.Range("F1")
    
    ' 确定结束单元格
    Dim lastRow As Long
    Dim lastColumn As Long
    lastRow = ws.Cells(ws.Rows.Count, startCell.Column).End(xlUp).Row
    lastColumn = ws.Cells(startCell.Row, ws.Columns.Count).End(xlToLeft).Column
    
    ' 创建区域范围
    Dim clearRange As Range
    Set clearRange = ws.Range(startCell, ws.Cells(lastRow, lastColumn))
    
    ' 清空内容和格式
    clearRange.Clear
End Sub

代码解释

  1. 设置工作表 :首先定义并设置工作表对象ws
  2. 确定起始单元格 :设置起始单元格startCell为F1。
  3. 计算结束单元格
    • 使用End(xlUp)找到从工作表底部向上的最后一个非空单元格的行号(影响F列)。
    • 使用End(xlToLeft)找到从工作表最右边向左的最后一个非空单元格的列号(影响第一行)。
  4. 设置清除范围 :使用Range对象创建一个从起始单元格到计算出的最后一个单元格的范围。
  5. 执行清除操作 :使用Clear方法清除该范围内的内容和格式。

这个代码片段会清空从F1开始的所有已使用的单元格,包括它们的内容和格式。

相关推荐
Coding_Doggy9 小时前
苍穹外卖Day12 | Apache POI、导出Excel报表、HttpServletResponse、工作台
excel
l1t1 天前
张泽鹏先生手搓的纯ANSI处理UTF-8与美团龙猫调用expat库读取Excel xml对比测试
xml·人工智能·excel·utf8·expat
一点都不方女士1 天前
《无畏契约》游戏报错“缺少DirectX”?5种解决方案(附DirectX修复工具)
windows·游戏·microsoft·动态链接库·directx·运行库
Source.Liu1 天前
【Python自动化】 21 Pandas Excel 操作完整指南
python·excel·pandas
会飞的小菠菜2 天前
如何根据Excel数据表生成多个合同、工作证、录取通知书等word文件?
word·excel·模板·数据表·生成文件
anlpsonline2 天前
安全产业 出海行动 | 安贝斯受邀参加第六届非传统安全(杭州)国际论坛:靠近国际前沿 拓宽国际视野
microsoft
Access开发易登软件2 天前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表2 天前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量
UrbanJazzerati2 天前
掌握 xlwings 的 used_range:高效处理 Excel 数据区域
python·面试·excel