Delete 方法 - Microsoft Excel Visual Basic 2002 参考

返回介绍

Delete 方法

发布于 2019-08-07 字数 2623 浏览 928 评论 0

全部显示

Delete 方法

应用于 Range 对象的 Delete 方法。

删除对象。

expression.Delete(Shift)

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

Shift Variant 类型,可选。仅用于 Range 对象。指定删除单元格时替补单元格的移位方式。可为以下 XlDeleteShiftDirection 常量之一:xlShiftToLeftxlShiftUp。如果省略该参数,则 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

上一篇:DDETerminate 方法

下一篇:DeleteAll 方法

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!