Excel 删除行数据的同时删除当前行中的对象 - xyantelope

Excel 删除行数据的同时删除当前行中的对象

2014-07-25 01:15  xyantelope  阅读(299)  评论(0)  编辑  收藏  举报

Private Sub Worksheet_Change(ByVal Target As Range)
Dim srg As Range, x As Shape
If Target.Count = Target.EntireRow.Cells.Count Then
    For Each x In Shapes
        If x.Top >= Target(1).Top And x.Top < Target(1).Offset(1, 0).Top Then: x.Delete
    Next x
End If
End Sub

这个有个BUG，当删除对象后，无法进行撤销操作。

• 分类 VBA初体验
•