vba 删除该行中所有使用的行和复选框？答案

【问题标题】：vba delete all used rows and checkboxes in that row?vba 删除该行中所有使用的行和复选框？
【发布时间】：2016-12-17 12:48:03
【问题描述】：

我正在使用以下代码删除电子表格中所有使用的行。

Sub Clear()
With ActiveSheet
    .Rows(13 & ":" & .Rows.Count).Delete
End With
End Sub

这可以正常工作并删除您可能期望的行。但是，在我的每一行中，我都有一个复选框，当删除行时，除了 1 个复选框外，其他所有复选框都被删除。

似乎最后一个复选框被推到我的删除行范围上方的行。请有人告诉我一种方法来确保在我删除所有行时删除所有复选框？

谢谢

【问题讨论】：

【解决方案1】：

您的代码对我来说很好，我不确定为什么最后一个复选框会被推上去。您可以告诉它逐行删除复选框，但我想您也会遇到同样的问题。将此添加到您的代码中将删除所有复选框，前提是您在创建它们后没有更改它们的名称：

For Each shape In ActiveSheet.Shapes
    If InStr(Replace(LCase(shape.Name), " ", ""), "checkbox") Then shape.Delete
Next shape

【讨论】：