全部显示

Delete 方法

       

应用于 Range 对象的 Delete 方法。

应用于 ShapeNodes 对象的 Delete 方法。

应用于“应用于”列表中的其他所有对象的 Delete 方法。

说明

删除 Point 对象或 LegendKey 对象将删除整个数据系列。

可删除自定义文档属性,但是无法删除内置文档属性。

示例

本示例删除 Sheet1 的 A1:D10 单元格区域,并将其右侧单元格向左移位。

Worksheets("Sheet1").Range("A1:D10").Delete Shift:=xlShiftToLeft

本示例删除活动工作簿的 Sheet3 工作表,并且不显示确认对话框。

Application.DisplayAlerts = False
Worksheets("Sheet3").Delete
Application.DisplayAlerts = True

本示例对 Sheet1 第一列的数据进行排序,然后删除包含重复数据的行。

Worksheets("Sheet1").Range("A1").Sort _
        key1:=Worksheets("Sheet1").Range("A1")
Set currentCell = Worksheets("Sheet1").Range("A1")
Do While Not IsEmpty(currentCell)
    Set nextCell = currentCell.Offset(1, 0)
    If nextCell.Value = currentCell.Value Then
        currentCell.EntireRow.Delete
    End If
    Set currentCell = nextCell
Loop