Excel VBA教程:Delete方法

应用于 Range对象的 Delete方法。

删除对象。

expression.Delete(Shift)

expression   必需。该表达式返回上面的对象之一。

Shift   Variant 类型,可选。仅用于 Range对象。指定删除单元格时替补单元格的移位方式。可为以下 XlDeleteShiftDirection 常量之一:xlShiftToLeft 或 xlShiftUp。如果省略该参数,则 Microsoft Excel 将根据区域的图形决定移位方式。

应用于 ShapeNodes对象的 Delete方法。

删除对象。

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

上页:Excel VBA教程:DDETerminate方法 下页:Excel VBA教程:DeleteAll方法

Excel VBA教程:Delete方法

Excel VBA教程:DeleteAll方法 Excel VBA教程:DeleteChartAutoFormat方法
Excel VBA教程:DeleteCustomList方法 Excel VBA教程:DeleteNumberFormat方法
Excel VBA教程:DeleteReplacement方法 Excel VBA教程:Deselect方法
Excel VBA教程:DialogBox方法 Excel VBA教程:Dirty方法
Excel VBA教程:DiscardConflict方法 Excel VBA教程:Disconnect方法
Excel VBA教程:DisconnectData方法 Excel VBA教程:Distribute方法
Excel VBA教程:DoubleClick方法 Excel VBA教程:DoughnutGroups方法
Excel VBA教程:DragOff方法 Excel VBA教程:Duplicate方法
Excel VBA教程:获取有关 Macintosh 关键字的帮助 Excel VBA教程:EndConnect方法
Excel VBA教程:EndDisconnect方法 Excel VBA教程:EndReview方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号