Delete方法-

发布时间：

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

Delete方法-

推荐内容

相关推荐