实例. Delete方法删除单元格
Delete方法删除单元格或者单元格区域，其下面的单元格或者右边的单元格会往上或者往左移动进来补充。
示例代码：
#001 Public Sub 示例()
#002 '复制Sheet2表A1单元格区域数据到Sheet1表A1单元格
#003 Sheets("Sheet2").Range("A1").CurrentRegion.Copy Destination:= _
#004 Sheets("Sheet1").Range("A1")
#005 '删除A1单元格，下面的单元格往上移动进来补充
#006 Range("A1").Delete Shift:=xlShiftUp
#007 '删除A2:B5单元格，下面的单元格往上移动进来补充
#008 Range("A2:B5").Delete Shift:=xlShiftUp
#009 '删除A2:B5行单元格，右边的单元格往左移动进来补充
#010 Range("A2:B5").Delete Shift:=xlShiftToLeft
#011 MsgBox "删除完毕"
#012 End Sub
运行结果如所示：
Delete方法删除单元格
代码说明：
Delete方法删除单元格或者单元格区域，其下面的单元格或者右边的单元格会往上或者往左移动进来补充。往上还是往左移动，主要看Shift属性。
Delete 方法
全部显示
删除指定的对象。
expression.Delete
expression 必需。该表达式返回上述对象之一。
应用于 Range对象的 Delete 方法。
删除指定的对象。
expression.Delete(Shift)
expression 必需。该表达式返回上述对象之一。 Shift XlDeleteShiftDirection 类型，可选。仅用于 Range 对象。指定如何移动单元格来代替删除的单元格。
最近不断的免费发送Excel VBA的实例教程，有需要Excel源代码的请评论区留言、点击关注和转发，然后直接私信回复：源代码
部分实例图：
部分实例图