删除对象。
expression.Delete(Shift)
expression 必需。该表达式返回上面的对象之一。
Shift Variant 类型,可选。仅用于 Range 对象。指定删除单元格时替补单元格的移位方式。可为以下 XlDeleteShiftDirection 常量之一:xlShiftToLeft 或 xlShiftUp。如果省略该参数,则 Microsoft Excel 将根据区域的图形决定移位方式。
删除对象。
expression.Delete(Index)
expression 必需。该表达式返回上面的对象之一。
Index Integer 类型,必需。
应用于“应用于”列表中的其他所有对象的 Delete 方法。
删除对象。
expression.Delete
expression 必需。该表达式返回上面的对象之一。
删除 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